/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / picture.elc.z / picture.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 31 3a 31 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:17 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 70 69 63 74 75 72 | 65 2e 65 6c 0a 3b 3b 3b |s/pictur|e.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 70 69 63 74 75 72 | (error |"`pictur|
|000001f0| 65 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |e.el' wa|s compil|
|00000200| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 32 30 22 |ed for E|macs 20"|
|00000210| 29 29 0a 0a 28 6f 72 20 | 28 62 6f 75 6e 64 70 20 |))..(or |(boundp |
|00000220| 27 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 |'current|-load-li|
|00000230| 73 74 29 20 28 73 65 74 | 71 20 63 75 72 72 65 6e |st) (set|q curren|
|00000240| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 6e 69 6c 29 |t-load-l|ist nil)|
|00000250| 29 0a 0a 0a 23 40 31 36 | 35 20 4d 6f 76 65 20 74 |)...#@16|5 Move t|
|00000260| 6f 20 63 6f 6c 75 6d 6e | 20 43 4f 4c 55 4d 4e 20 |o column| COLUMN |
|00000270| 69 6e 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2e |in curre|nt line.|
|00000280| 0a 44 69 66 66 65 72 73 | 20 66 72 6f 6d 20 60 6d |.Differs| from `m|
|00000290| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 27 20 69 |ove-to-c|olumn' i|
|000002a0| 6e 20 74 68 61 74 20 69 | 74 20 63 72 65 61 74 65 |n that i|t create|
|000002b0| 73 20 6f 72 20 6d 6f 64 | 69 66 69 65 73 20 77 68 |s or mod|ifies wh|
|000002c0| 69 74 65 73 70 61 63 65 | 0a 69 66 20 6e 65 63 65 |itespace|.if nece|
|000002d0| 73 73 61 72 79 20 74 6f | 20 61 74 74 61 69 6e 20 |ssary to| attain |
|000002e0| 65 78 61 63 74 6c 79 20 | 74 68 65 20 73 70 65 63 |exactly |the spec|
|000002f0| 69 66 69 65 64 20 63 6f | 6c 75 6d 6e 2e 1f 0a 28 |ified co|lumn...(|
|00000300| 64 65 66 61 6c 69 61 73 | 20 27 6d 6f 76 65 2d 74 |defalias| 'move-t|
|00000310| 6f 2d 63 6f 6c 75 6d 6e | 2d 66 6f 72 63 65 20 23 |o-column|-force #|
|00000320| 5b 28 63 6f 6c 75 6d 6e | 29 20 22 c0 09 21 ac 82 |[(column|) "..!..|
|00000330| c2 11 c3 09 21 88 69 89 | 1c 09 57 ab 85 09 6a 88 |....!.i.|..W...j.|
|00000340| aa 99 0c 09 55 ac 94 68 | c5 55 ab 8f c6 1e 07 c8 |....U..h|.U......|
|00000350| c9 21 88 0c 6a 88 c3 09 | 21 88 29 ca 89 16 0b 29 |.!..j...|!.)....)|
|00000360| 87 22 20 5b 6e 61 74 6e | 75 6d 70 20 63 6f 6c 75 |." [natn|ump colu|
|00000370| 6d 6e 20 30 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c |mn 0 mov|e-to-col|
|00000380| 75 6d 6e 20 63 6f 6c 20 | 3f 5c 74 20 6e 69 6c 20 |umn col |?\t nil |
|00000390| 69 6e 64 65 6e 74 2d 74 | 61 62 73 2d 6d 6f 64 65 |indent-t|abs-mode|
|000003a0| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 2d 31 20 | delete-|char -1 |
|000003b0| 74 20 7a 6d 61 63 73 2d | 72 65 67 69 6f 6e 2d 73 |t zmacs-|region-s|
|000003c0| 74 61 79 73 5d 20 33 20 | 28 23 24 20 2e 20 36 30 |tays] 3 |(#$ . 60|
|000003d0| 32 29 5d 29 0a 23 40 31 | 35 35 20 50 6f 73 69 74 |2)]).#@1|55 Posit|
|000003e0| 69 6f 6e 20 70 6f 69 6e | 74 20 61 74 20 74 68 65 |ion poin|t at the|
|000003f0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00000400| 65 20 6c 69 6e 65 2e 0a | 57 69 74 68 20 41 52 47 |e line..|With ARG|
|00000410| 20 6e 6f 74 20 6e 69 6c | 2c 20 6d 6f 76 65 20 66 | not nil|, move f|
|00000420| 6f 72 77 61 72 64 20 41 | 52 47 20 2d 20 31 20 6c |orward A|RG - 1 l|
|00000430| 69 6e 65 73 20 66 69 72 | 73 74 2e 0a 49 66 20 73 |ines fir|st..If s|
|00000440| 63 61 6e 20 72 65 61 63 | 68 65 73 20 65 6e 64 20 |can reac|hes end |
|00000450| 6f 66 20 62 75 66 66 65 | 72 2c 20 73 74 6f 70 20 |of buffe|r, stop |
|00000460| 74 68 65 72 65 20 77 69 | 74 68 6f 75 74 20 65 72 |there wi|thout er|
|00000470| 72 6f 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ror...(d|efalias |
|00000480| 27 70 69 63 74 75 72 65 | 2d 62 65 67 69 6e 6e 69 |'picture|-beginni|
|00000490| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 23 5b 28 26 6f |ng-of-li|ne #[(&o|
|000004a0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 08 ab |ptional |arg) "..|
|000004b0| 86 c1 08 21 53 79 88 c2 | 79 88 c3 87 22 20 5b 61 |...!Sy..|y..." [a|
|000004c0| 72 67 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |rg prefi|x-numeri|
|000004d0| 63 2d 76 61 6c 75 65 20 | 30 20 6e 69 6c 5d 20 32 |c-value |0 nil] 2|
|000004e0| 20 28 23 24 20 2e 20 39 | 38 37 29 20 22 50 22 5d | (#$ . 9|87) "P"]|
|000004f0| 29 0a 23 40 31 37 33 20 | 50 6f 73 69 74 69 6f 6e |).#@173 |Position|
|00000500| 20 70 6f 69 6e 74 20 61 | 66 74 65 72 20 6c 61 73 | point a|fter las|
|00000510| 74 20 6e 6f 6e 2d 62 6c | 61 6e 6b 20 63 68 61 72 |t non-bl|ank char|
|00000520| 61 63 74 65 72 20 6f 6e | 20 63 75 72 72 65 6e 74 |acter on| current|
|00000530| 20 6c 69 6e 65 2e 0a 57 | 69 74 68 20 41 52 47 20 | line..W|ith ARG |
|00000540| 6e 6f 74 20 6e 69 6c 2c | 20 6d 6f 76 65 20 66 6f |not nil,| move fo|
|00000550| 72 77 61 72 64 20 41 52 | 47 20 2d 20 31 20 6c 69 |rward AR|G - 1 li|
|00000560| 6e 65 73 20 66 69 72 73 | 74 2e 0a 49 66 20 73 63 |nes firs|t..If sc|
|00000570| 61 6e 20 72 65 61 63 68 | 65 73 20 65 6e 64 20 6f |an reach|es end o|
|00000580| 66 20 62 75 66 66 65 72 | 2c 20 73 74 6f 70 20 74 |f buffer|, stop t|
|00000590| 68 65 72 65 20 77 69 74 | 68 6f 75 74 20 65 72 72 |here wit|hout err|
|000005a0| 6f 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |or...(de|falias '|
|000005b0| 70 69 63 74 75 72 65 2d | 65 6e 64 2d 6f 66 2d 6c |picture-|end-of-l|
|000005c0| 69 6e 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ine #[(&|optional|
|000005d0| 20 61 72 67 29 20 22 08 | ab 86 c1 08 21 53 79 88 | arg) ".|....!Sy.|
|000005e0| c2 79 88 c3 60 c4 7f 88 | 78 87 22 20 5b 61 72 67 |.y..`...|x." [arg|
|000005f0| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00000600| 76 61 6c 75 65 20 30 20 | 22 20 09 22 20 6e 69 6c |value 0 |" ." nil|
|00000610| 5d 20 33 20 28 23 24 20 | 2e 20 31 32 37 32 29 20 |] 3 (#$ |. 1272) |
|00000620| 22 50 22 5d 29 0a 23 40 | 39 31 20 4d 6f 76 65 20 |"P"]).#@|91 Move |
|00000630| 63 75 72 73 6f 72 20 72 | 69 67 68 74 2c 20 6d 61 |cursor r|ight, ma|
|00000640| 6b 69 6e 67 20 77 68 69 | 74 65 73 70 61 63 65 20 |king whi|tespace |
|00000650| 69 66 20 6e 65 63 65 73 | 73 61 72 79 2e 0a 57 69 |if neces|sary..Wi|
|00000660| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 6d 6f 76 |th argum|ent, mov|
|00000670| 65 20 74 68 61 74 20 6d | 61 6e 79 20 63 6f 6c 75 |e that m|any colu|
|00000680| 6d 6e 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |mns...(d|efalias |
|00000690| 27 70 69 63 74 75 72 65 | 2d 66 6f 72 77 61 72 64 |'picture|-forward|
|000006a0| 2d 63 6f 6c 75 6d 6e 20 | 23 5b 28 61 72 67 29 20 |-column |#[(arg) |
|000006b0| 22 69 08 5c 5c 19 c2 09 | 21 88 08 c3 57 ad 87 69 |"i.\\...|!...W..i|
|000006c0| 09 56 ad 82 c4 75 29 87 | 22 20 5b 61 72 67 20 74 |.V...u).|" [arg t|
|000006d0| 61 72 67 65 74 2d 63 6f | 6c 75 6d 6e 20 6d 6f 76 |arget-co|lumn mov|
|000006e0| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 2d 66 6f 72 63 |e-to-col|umn-forc|
|000006f0| 65 20 30 20 2d 31 5d 20 | 32 20 28 23 24 20 2e 20 |e 0 -1] |2 (#$ . |
|00000700| 31 35 37 39 29 20 22 70 | 22 5d 29 0a 23 40 39 30 |1579) "p|"]).#@90|
|00000710| 20 4d 6f 76 65 20 63 75 | 72 73 6f 72 20 6c 65 66 | Move cu|rsor lef|
|00000720| 74 2c 20 6d 61 6b 69 6e | 67 20 77 68 69 74 65 73 |t, makin|g whites|
|00000730| 70 61 63 65 20 69 66 20 | 6e 65 63 65 73 73 61 72 |pace if |necessar|
|00000740| 79 2e 0a 57 69 74 68 20 | 61 72 67 75 6d 65 6e 74 |y..With |argument|
|00000750| 2c 20 6d 6f 76 65 20 74 | 68 61 74 20 6d 61 6e 79 |, move t|hat many|
|00000760| 20 63 6f 6c 75 6d 6e 73 | 2e 1f 0a 28 64 65 66 61 | columns|...(defa|
|00000770| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 62 61 |lias 'pi|cture-ba|
|00000780| 63 6b 77 61 72 64 2d 63 | 6f 6c 75 6d 6e 20 23 5b |ckward-c|olumn #[|
|00000790| 28 61 72 67 29 20 22 c0 | 09 5b 21 87 22 20 5b 70 |(arg) ".|.[!." [p|
|000007a0| 69 63 74 75 72 65 2d 66 | 6f 72 77 61 72 64 2d 63 |icture-f|orward-c|
|000007b0| 6f 6c 75 6d 6e 20 61 72 | 67 5d 20 32 20 28 23 24 |olumn ar|g] 2 (#$|
|000007c0| 20 2e 20 31 38 30 39 29 | 20 22 70 22 5d 29 0a 23 | . 1809)| "p"]).#|
|000007d0| 40 39 32 20 4d 6f 76 65 | 20 76 65 72 74 69 63 61 |@92 Move| vertica|
|000007e0| 6c 6c 79 20 64 6f 77 6e | 2c 20 6d 61 6b 69 6e 67 |lly down|, making|
|000007f0| 20 77 68 69 74 65 73 70 | 61 63 65 20 69 66 20 6e | whitesp|ace if n|
|00000800| 65 63 65 73 73 61 72 79 | 2e 0a 57 69 74 68 20 61 |ecessary|..With a|
|00000810| 72 67 75 6d 65 6e 74 2c | 20 6d 6f 76 65 20 74 68 |rgument,| move th|
|00000820| 61 74 20 6d 61 6e 79 20 | 6c 69 6e 65 73 2e 1f 0a |at many |lines...|
|00000830| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00000840| 72 65 2d 6d 6f 76 65 2d | 64 6f 77 6e 20 23 5b 28 |re-move-|down #[(|
|00000850| 61 72 67 29 20 22 69 18 | c1 5c 6e 21 88 c3 08 21 |arg) "i.|.\n!...!|
|00000860| 29 87 22 20 5b 63 6f 6c | 20 70 69 63 74 75 72 65 |)." [col| picture|
|00000870| 2d 6e 65 77 6c 69 6e 65 | 20 61 72 67 20 6d 6f 76 |-newline| arg mov|
|00000880| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 2d 66 6f 72 63 |e-to-col|umn-forc|
|00000890| 65 5d 20 32 20 28 23 24 | 20 2e 20 32 30 30 34 29 |e] 2 (#$| . 2004)|
|000008a0| 20 22 70 22 5d 29 0a 23 | 40 36 35 20 41 6d 6f 75 | "p"]).#|@65 Amou|
|000008b0| 6e 74 20 74 6f 20 6d 6f | 76 65 20 76 65 72 74 69 |nt to mo|ve verti|
|000008c0| 63 61 6c 6c 79 20 61 66 | 74 65 72 20 74 65 78 74 |cally af|ter text|
|000008d0| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 50 69 | charact|er in Pi|
|000008e0| 63 74 75 72 65 20 6d 6f | 64 65 2e 1f 0a 28 64 65 |cture mo|de...(de|
|000008f0| 66 63 6f 6e 73 74 20 70 | 69 63 74 75 72 65 2d 76 |fconst p|icture-v|
|00000900| 65 72 74 69 63 61 6c 2d | 73 74 65 70 20 30 20 28 |ertical-|step 0 (|
|00000910| 23 24 20 2e 20 32 32 32 | 30 29 29 0a 23 40 36 37 |#$ . 222|0)).#@67|
|00000920| 20 41 6d 6f 75 6e 74 20 | 74 6f 20 6d 6f 76 65 20 | Amount |to move |
|00000930| 68 6f 72 69 7a 6f 6e 74 | 61 6c 6c 79 20 61 66 74 |horizont|ally aft|
|00000940| 65 72 20 74 65 78 74 20 | 63 68 61 72 61 63 74 65 |er text |characte|
|00000950| 72 20 69 6e 20 50 69 63 | 74 75 72 65 20 6d 6f 64 |r in Pic|ture mod|
|00000960| 65 2e 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 70 69 |e...(def|const pi|
|00000970| 63 74 75 72 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |cture-ho|rizontal|
|00000980| 2d 73 74 65 70 20 31 20 | 28 23 24 20 2e 20 32 33 |-step 1 |(#$ . 23|
|00000990| 33 37 29 29 0a 23 40 39 | 30 20 4d 6f 76 65 20 76 |37)).#@9|0 Move v|
|000009a0| 65 72 74 69 63 61 6c 6c | 79 20 75 70 2c 20 6d 61 |erticall|y up, ma|
|000009b0| 6b 69 6e 67 20 77 68 69 | 74 65 73 70 61 63 65 20 |king whi|tespace |
|000009c0| 69 66 20 6e 65 63 65 73 | 73 61 72 79 2e 0a 57 69 |if neces|sary..Wi|
|000009d0| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 6d 6f 76 |th argum|ent, mov|
|000009e0| 65 20 74 68 61 74 20 6d | 61 6e 79 20 6c 69 6e 65 |e that m|any line|
|000009f0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |s...(def|alias 'p|
|00000a00| 69 63 74 75 72 65 2d 6d | 6f 76 65 2d 75 70 20 23 |icture-m|ove-up #|
|00000a10| 5b 28 61 72 67 29 20 22 | c0 09 5b 21 87 22 20 5b |[(arg) "|..[!." [|
|00000a20| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 2d 64 6f 77 |picture-|move-dow|
|00000a30| 6e 20 61 72 67 5d 20 32 | 20 28 23 24 20 2e 20 32 |n arg] 2| (#$ . 2|
|00000a40| 34 35 38 29 20 22 70 22 | 5d 29 0a 23 40 36 30 20 |458) "p"|]).#@60 |
|00000a50| 4d 6f 76 65 20 72 69 67 | 68 74 20 61 66 74 65 72 |Move rig|ht after|
|00000a60| 20 73 65 6c 66 2d 69 6e | 73 65 72 74 69 6e 67 20 | self-in|serting |
|00000a70| 63 68 61 72 61 63 74 65 | 72 20 69 6e 20 50 69 63 |characte|r in Pic|
|00000a80| 74 75 72 65 20 6d 6f 64 | 65 2e 1f 0a 28 64 65 66 |ture mod|e...(def|
|00000a90| 61 6c 69 61 73 20 27 70 | 69 63 74 75 72 65 2d 6d |alias 'p|icture-m|
|00000aa0| 6f 76 65 6d 65 6e 74 2d | 72 69 67 68 74 20 23 5b |ovement-|right #[|
|00000ab0| 6e 69 6c 20 22 c0 c1 c2 | 5c 22 87 22 20 5b 70 69 |nil "...|\"." [pi|
|00000ac0| 63 74 75 72 65 2d 73 65 | 74 2d 6d 6f 74 69 6f 6e |cture-se|t-motion|
|00000ad0| 20 30 20 31 5d 20 33 20 | 28 23 24 20 2e 20 32 36 | 0 1] 3 |(#$ . 26|
|00000ae0| 34 30 29 20 6e 69 6c 5d | 29 0a 23 40 35 39 20 4d |40) nil]|).#@59 M|
|00000af0| 6f 76 65 20 6c 65 66 74 | 20 61 66 74 65 72 20 73 |ove left| after s|
|00000b00| 65 6c 66 2d 69 6e 73 65 | 72 74 69 6e 67 20 63 68 |elf-inse|rting ch|
|00000b10| 61 72 61 63 74 65 72 20 | 69 6e 20 50 69 63 74 75 |aracter |in Pictu|
|00000b20| 72 65 20 6d 6f 64 65 2e | 1f 0a 28 64 65 66 61 6c |re mode.|..(defal|
|00000b30| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 6d 6f 76 |ias 'pic|ture-mov|
|00000b40| 65 6d 65 6e 74 2d 6c 65 | 66 74 20 23 5b 6e 69 6c |ement-le|ft #[nil|
|00000b50| 20 22 c0 c1 c2 5c 22 87 | 22 20 5b 70 69 63 74 75 | "...\".|" [pictu|
|00000b60| 72 65 2d 73 65 74 2d 6d | 6f 74 69 6f 6e 20 30 20 |re-set-m|otion 0 |
|00000b70| 2d 31 5d 20 33 20 28 23 | 24 20 2e 20 32 37 39 39 |-1] 3 (#|$ . 2799|
|00000b80| 29 20 6e 69 6c 5d 29 0a | 23 40 35 37 20 4d 6f 76 |) nil]).|#@57 Mov|
|00000b90| 65 20 75 70 20 61 66 74 | 65 72 20 73 65 6c 66 2d |e up aft|er self-|
|00000ba0| 69 6e 73 65 72 74 69 6e | 67 20 63 68 61 72 61 63 |insertin|g charac|
|00000bb0| 74 65 72 20 69 6e 20 50 | 69 63 74 75 72 65 20 6d |ter in P|icture m|
|00000bc0| 6f 64 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ode...(d|efalias |
|00000bd0| 27 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e |'picture|-movemen|
|00000be0| 74 2d 75 70 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 5c |t-up #[n|il "...\|
|00000bf0| 22 87 22 20 5b 70 69 63 | 74 75 72 65 2d 73 65 74 |"." [pic|ture-set|
|00000c00| 2d 6d 6f 74 69 6f 6e 20 | 2d 31 20 30 5d 20 33 20 |-motion |-1 0] 3 |
|00000c10| 28 23 24 20 2e 20 32 39 | 35 37 29 20 6e 69 6c 5d |(#$ . 29|57) nil]|
|00000c20| 29 0a 23 40 35 39 20 4d | 6f 76 65 20 64 6f 77 6e |).#@59 M|ove down|
|00000c30| 20 61 66 74 65 72 20 73 | 65 6c 66 2d 69 6e 73 65 | after s|elf-inse|
|00000c40| 72 74 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 20 |rting ch|aracter |
|00000c50| 69 6e 20 50 69 63 74 75 | 72 65 20 6d 6f 64 65 2e |in Pictu|re mode.|
|00000c60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 69 63 |..(defal|ias 'pic|
|00000c70| 74 75 72 65 2d 6d 6f 76 | 65 6d 65 6e 74 2d 64 6f |ture-mov|ement-do|
|00000c80| 77 6e 20 23 5b 6e 69 6c | 20 22 c0 c1 c2 5c 22 87 |wn #[nil| "...\".|
|00000c90| 22 20 5b 70 69 63 74 75 | 72 65 2d 73 65 74 2d 6d |" [pictu|re-set-m|
|00000ca0| 6f 74 69 6f 6e 20 31 20 | 30 5d 20 33 20 28 23 24 |otion 1 |0] 3 (#$|
|00000cb0| 20 2e 20 33 31 31 31 29 | 20 6e 69 6c 5d 29 0a 23 | . 3111)| nil]).#|
|00000cc0| 40 36 36 20 4d 6f 76 65 | 20 75 70 20 61 6e 64 20 |@66 Move| up and |
|00000cd0| 6c 65 66 74 20 61 66 74 | 65 72 20 73 65 6c 66 2d |left aft|er self-|
|00000ce0| 69 6e 73 65 72 74 69 6e | 67 20 63 68 61 72 61 63 |insertin|g charac|
|00000cf0| 74 65 72 20 69 6e 20 50 | 69 63 74 75 72 65 20 6d |ter in P|icture m|
|00000d00| 6f 64 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ode...(d|efalias |
|00000d10| 27 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e |'picture|-movemen|
|00000d20| 74 2d 6e 77 20 23 5b 6e | 69 6c 20 22 c0 c1 89 5c |t-nw #[n|il "...\|
|00000d30| 22 87 22 20 5b 70 69 63 | 74 75 72 65 2d 73 65 74 |"." [pic|ture-set|
|00000d40| 2d 6d 6f 74 69 6f 6e 20 | 2d 31 5d 20 33 20 28 23 |-motion |-1] 3 (#|
|00000d50| 24 20 2e 20 33 32 36 38 | 29 20 6e 69 6c 5d 29 0a |$ . 3268|) nil]).|
|00000d60| 23 40 36 37 20 4d 6f 76 | 65 20 75 70 20 61 6e 64 |#@67 Mov|e up and|
|00000d70| 20 72 69 67 68 74 20 61 | 66 74 65 72 20 73 65 6c | right a|fter sel|
|00000d80| 66 2d 69 6e 73 65 72 74 | 69 6e 67 20 63 68 61 72 |f-insert|ing char|
|00000d90| 61 63 74 65 72 20 69 6e | 20 50 69 63 74 75 72 65 |acter in| Picture|
|00000da0| 20 6d 6f 64 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 | mode...|(defalia|
|00000db0| 73 20 27 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |s 'pictu|re-movem|
|00000dc0| 65 6e 74 2d 6e 65 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ent-ne #|[nil "..|
|00000dd0| c2 5c 22 87 22 20 5b 70 | 69 63 74 75 72 65 2d 73 |.\"." [p|icture-s|
|00000de0| 65 74 2d 6d 6f 74 69 6f | 6e 20 2d 31 20 31 5d 20 |et-motio|n -1 1] |
|00000df0| 33 20 28 23 24 20 2e 20 | 33 34 32 39 29 20 6e 69 |3 (#$ . |3429) ni|
|00000e00| 6c 5d 29 0a 23 40 36 38 | 20 4d 6f 76 65 20 64 6f |l]).#@68| Move do|
|00000e10| 77 6e 20 61 6e 64 20 6c | 65 66 74 20 61 66 74 65 |wn and l|eft afte|
|00000e20| 72 20 73 65 6c 66 2d 69 | 6e 73 65 72 74 69 6e 67 |r self-i|nserting|
|00000e30| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 50 69 | charact|er in Pi|
|00000e40| 63 74 75 72 65 20 6d 6f | 64 65 2e 1f 0a 28 64 65 |cture mo|de...(de|
|00000e50| 66 61 6c 69 61 73 20 27 | 70 69 63 74 75 72 65 2d |falias '|picture-|
|00000e60| 6d 6f 76 65 6d 65 6e 74 | 2d 73 77 20 23 5b 6e 69 |movement|-sw #[ni|
|00000e70| 6c 20 22 c0 c1 c2 5c 22 | 87 22 20 5b 70 69 63 74 |l "...\"|." [pict|
|00000e80| 75 72 65 2d 73 65 74 2d | 6d 6f 74 69 6f 6e 20 31 |ure-set-|motion 1|
|00000e90| 20 2d 31 5d 20 33 20 28 | 23 24 20 2e 20 33 35 39 | -1] 3 (|#$ . 359|
|00000ea0| 33 29 20 6e 69 6c 5d 29 | 0a 23 40 36 39 20 4d 6f |3) nil])|.#@69 Mo|
|00000eb0| 76 65 20 64 6f 77 6e 20 | 61 6e 64 20 72 69 67 68 |ve down |and righ|
|00000ec0| 74 20 61 66 74 65 72 20 | 73 65 6c 66 2d 69 6e 73 |t after |self-ins|
|00000ed0| 65 72 74 69 6e 67 20 63 | 68 61 72 61 63 74 65 72 |erting c|haracter|
|00000ee0| 20 69 6e 20 50 69 63 74 | 75 72 65 20 6d 6f 64 65 | in Pict|ure mode|
|00000ef0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |...(defa|lias 'pi|
|00000f00| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 73 |cture-mo|vement-s|
|00000f10| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 89 5c 22 87 22 |e #[nil |"...\"."|
|00000f20| 20 5b 70 69 63 74 75 72 | 65 2d 73 65 74 2d 6d 6f | [pictur|e-set-mo|
|00000f30| 74 69 6f 6e 20 31 5d 20 | 33 20 28 23 24 20 2e 20 |tion 1] |3 (#$ . |
|00000f40| 33 37 35 38 29 20 6e 69 | 6c 5d 29 0a 23 40 31 32 |3758) ni|l]).#@12|
|00000f50| 38 20 53 65 74 20 56 45 | 52 54 49 43 41 4c 20 61 |8 Set VE|RTICAL a|
|00000f60| 6e 64 20 48 4f 52 49 5a | 4f 4e 54 41 4c 20 69 6e |nd HORIZ|ONTAL in|
|00000f70| 63 72 65 6d 65 6e 74 73 | 20 66 6f 72 20 6d 6f 76 |crements| for mov|
|00000f80| 65 6d 65 6e 74 20 69 6e | 20 50 69 63 74 75 72 65 |ement in| Picture|
|00000f90| 20 6d 6f 64 65 2e 0a 54 | 68 65 20 6d 6f 64 65 6c | mode..T|he model|
|00000fa0| 69 6e 65 20 69 73 20 75 | 70 64 61 74 65 64 20 74 |ine is u|pdated t|
|00000fb0| 6f 20 72 65 66 6c 65 63 | 74 20 74 68 65 20 63 75 |o reflec|t the cu|
|00000fc0| 72 72 65 6e 74 20 64 69 | 72 65 63 74 69 6f 6e 2e |rrent di|rection.|
|00000fd0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 69 63 |..(defal|ias 'pic|
|00000fe0| 74 75 72 65 2d 73 65 74 | 2d 6d 6f 74 69 6f 6e 20 |ture-set|-motion |
|00000ff0| 23 5b 28 76 65 72 74 20 | 68 6f 72 69 7a 29 20 22 |#[(vert |horiz) "|
|00001000| 08 11 5c 6e 13 c4 c5 5c | 6e c6 a6 08 c6 a6 54 c7 |..\n...\|n.....T.|
|00001010| 5f 5c 5c c8 5c 5c c9 9b | 40 5c 22 16 5c 6e cb 20 |_\\.\\..|@\".\n. |
|00001020| 88 cc cd 21 87 22 20 5b | 76 65 72 74 20 70 69 63 |...!." [|vert pic|
|00001030| 74 75 72 65 2d 76 65 72 | 74 69 63 61 6c 2d 73 74 |ture-ver|tical-st|
|00001040| 65 70 20 68 6f 72 69 7a | 20 70 69 63 74 75 72 65 |ep horiz| picture|
|00001050| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 2d 73 74 65 70 |-horizon|tal-step|
|00001060| 20 66 6f 72 6d 61 74 20 | 22 50 69 63 74 75 72 65 | format |"Picture|
|00001070| 3a 25 73 22 20 32 20 33 | 20 31 20 28 6e 77 20 75 |:%s" 2 3| 1 (nw u|
|00001080| 70 20 6e 65 20 6c 65 66 | 74 20 6e 6f 6e 65 20 72 |p ne lef|t none r|
|00001090| 69 67 68 74 20 73 77 20 | 64 6f 77 6e 20 73 65 29 |ight sw |down se)|
|000010a0| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 72 65 64 72 61 | mode-na|me redra|
|000010b0| 77 2d 6d 6f 64 65 6c 69 | 6e 65 20 6d 65 73 73 61 |w-modeli|ne messa|
|000010c0| 67 65 20 6e 69 6c 5d 20 | 35 20 28 23 24 20 2e 20 |ge nil] |5 (#$ . |
|000010d0| 33 39 32 32 29 5d 29 0a | 23 40 37 37 20 4d 6f 76 |3922)]).|#@77 Mov|
|000010e0| 65 20 69 6e 20 64 69 72 | 65 63 74 69 6f 6e 20 6f |e in dir|ection o|
|000010f0| 66 20 60 70 69 63 74 75 | 72 65 2d 76 65 72 74 69 |f `pictu|re-verti|
|00001100| 63 61 6c 2d 73 74 65 70 | 27 20 61 6e 64 20 60 70 |cal-step|' and `p|
|00001110| 69 63 74 75 72 65 2d 68 | 6f 72 69 7a 6f 6e 74 61 |icture-h|orizonta|
|00001120| 6c 2d 73 74 65 70 27 2e | 1f 0a 28 64 65 66 61 6c |l-step'.|..(defal|
|00001130| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 6d 6f 76 |ias 'pic|ture-mov|
|00001140| 65 20 23 5b 6e 69 6c 20 | 22 c0 09 21 88 c2 0b 21 |e #[nil |"..!...!|
|00001150| 87 22 20 5b 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |." [pict|ure-move|
|00001160| 2d 64 6f 77 6e 20 70 69 | 63 74 75 72 65 2d 76 65 |-down pi|cture-ve|
|00001170| 72 74 69 63 61 6c 2d 73 | 74 65 70 20 70 69 63 74 |rtical-s|tep pict|
|00001180| 75 72 65 2d 66 6f 72 77 | 61 72 64 2d 63 6f 6c 75 |ure-forw|ard-colu|
|00001190| 6d 6e 20 70 69 63 74 75 | 72 65 2d 68 6f 72 69 7a |mn pictu|re-horiz|
|000011a0| 6f 6e 74 61 6c 2d 73 74 | 65 70 5d 20 32 20 28 23 |ontal-st|ep] 2 (#|
|000011b0| 24 20 2e 20 34 33 31 37 | 29 5d 29 0a 23 40 32 35 |$ . 4317|)]).#@25|
|000011c0| 39 20 4d 6f 76 65 20 70 | 6f 69 6e 74 20 69 6e 20 |9 Move p|oint in |
|000011d0| 64 69 72 65 63 74 69 6f | 6e 20 6f 66 20 63 75 72 |directio|n of cur|
|000011e0| 72 65 6e 74 20 70 69 63 | 74 75 72 65 20 6d 6f 74 |rent pic|ture mot|
|000011f0| 69 6f 6e 20 69 6e 20 50 | 69 63 74 75 72 65 20 6d |ion in P|icture m|
|00001200| 6f 64 65 2e 0a 57 69 74 | 68 20 41 52 47 20 64 6f |ode..Wit|h ARG do|
|00001210| 20 69 74 20 74 68 61 74 | 20 6d 61 6e 79 20 74 69 | it that| many ti|
|00001220| 6d 65 73 2e 20 20 55 73 | 65 66 75 6c 20 66 6f 72 |mes.  Us|eful for|
|00001230| 20 64 65 6c 69 6e 65 61 | 74 69 6e 67 20 72 65 63 | delinea|ting rec|
|00001240| 74 61 6e 67 6c 65 73 20 | 69 6e 0a 63 6f 6e 6a 75 |tangles |in.conju|
|00001250| 6e 63 74 69 6f 6e 20 77 | 69 74 68 20 64 69 61 67 |nction w|ith diag|
|00001260| 6f 6e 61 6c 20 70 69 63 | 74 75 72 65 20 6d 6f 74 |onal pic|ture mot|
|00001270| 69 6f 6e 2e 0a 44 6f 20 | 5c 5b 63 6f 6d 6d 61 6e |ion..Do |\[comman|
|00001280| 64 2d 61 70 72 6f 70 6f | 73 5d 20 20 70 69 63 74 |d-apropo|s]  pict|
|00001290| 75 72 65 2d 6d 6f 76 65 | 6d 65 6e 74 20 20 74 6f |ure-move|ment  to|
|000012a0| 20 73 65 65 20 63 6f 6d | 6d 61 6e 64 73 20 77 68 | see com|mands wh|
|000012b0| 69 63 68 20 63 6f 6e 74 | 72 6f 6c 20 6d 6f 74 69 |ich cont|rol moti|
|000012c0| 6f 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |on...(de|falias '|
|000012d0| 70 69 63 74 75 72 65 2d | 6d 6f 74 69 6f 6e 20 23 |picture-|motion #|
|000012e0| 5b 28 61 72 67 29 20 22 | c0 09 5c 6e 5f 21 88 c3 |[(arg) "|..\n_!..|
|000012f0| 09 0c 5f 21 87 22 20 5b | 70 69 63 74 75 72 65 2d |.._!." [|picture-|
|00001300| 6d 6f 76 65 2d 64 6f 77 | 6e 20 61 72 67 20 70 69 |move-dow|n arg pi|
|00001310| 63 74 75 72 65 2d 76 65 | 72 74 69 63 61 6c 2d 73 |cture-ve|rtical-s|
|00001320| 74 65 70 20 70 69 63 74 | 75 72 65 2d 66 6f 72 77 |tep pict|ure-forw|
|00001330| 61 72 64 2d 63 6f 6c 75 | 6d 6e 20 70 69 63 74 75 |ard-colu|mn pictu|
|00001340| 72 65 2d 68 6f 72 69 7a | 6f 6e 74 61 6c 2d 73 74 |re-horiz|ontal-st|
|00001350| 65 70 5d 20 33 20 28 23 | 24 20 2e 20 34 35 34 36 |ep] 3 (#|$ . 4546|
|00001360| 29 20 22 70 22 5d 29 0a | 23 40 32 36 38 20 4d 6f |) "p"]).|#@268 Mo|
|00001370| 76 65 20 70 6f 69 6e 74 | 20 69 6e 20 64 69 72 65 |ve point| in dire|
|00001380| 63 74 69 6f 6e 20 6f 70 | 70 6f 73 69 74 65 20 6f |ction op|posite o|
|00001390| 66 20 63 75 72 72 65 6e | 74 20 70 69 63 74 75 72 |f curren|t pictur|
|000013a0| 65 20 6d 6f 74 69 6f 6e | 20 69 6e 20 50 69 63 74 |e motion| in Pict|
|000013b0| 75 72 65 20 6d 6f 64 65 | 2e 0a 57 69 74 68 20 41 |ure mode|..With A|
|000013c0| 52 47 20 64 6f 20 69 74 | 20 74 68 61 74 20 6d 61 |RG do it| that ma|
|000013d0| 6e 79 20 74 69 6d 65 73 | 2e 20 20 55 73 65 66 75 |ny times|.  Usefu|
|000013e0| 6c 20 66 6f 72 20 64 65 | 6c 69 6e 65 61 74 69 6e |l for de|lineatin|
|000013f0| 67 20 72 65 63 74 61 6e | 67 6c 65 73 20 69 6e 0a |g rectan|gles in.|
|00001400| 63 6f 6e 6a 75 6e 63 74 | 69 6f 6e 20 77 69 74 68 |conjunct|ion with|
|00001410| 20 64 69 61 67 6f 6e 61 | 6c 20 70 69 63 74 75 72 | diagona|l pictur|
|00001420| 65 20 6d 6f 74 69 6f 6e | 2e 0a 44 6f 20 5c 5b 63 |e motion|..Do \[c|
|00001430| 6f 6d 6d 61 6e 64 2d 61 | 70 72 6f 70 6f 73 5d 20 |ommand-a|propos] |
|00001440| 60 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e |`picture|-movemen|
|00001450| 74 27 20 74 6f 20 73 65 | 65 20 63 6f 6d 6d 61 6e |t' to se|e comman|
|00001460| 64 73 20 77 68 69 63 68 | 20 63 6f 6e 74 72 6f 6c |ds which| control|
|00001470| 20 6d 6f 74 69 6f 6e 2e | 1f 0a 28 64 65 66 61 6c | motion.|..(defal|
|00001480| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 6d 6f 74 |ias 'pic|ture-mot|
|00001490| 69 6f 6e 2d 72 65 76 65 | 72 73 65 20 23 5b 28 61 |ion-reve|rse #[(a|
|000014a0| 72 67 29 20 22 c0 09 5b | 21 87 22 20 5b 70 69 63 |rg) "..[|!." [pic|
|000014b0| 74 75 72 65 2d 6d 6f 74 | 69 6f 6e 20 61 72 67 5d |ture-mot|ion arg]|
|000014c0| 20 32 20 28 23 24 20 2e | 20 34 39 37 34 29 20 22 | 2 (#$ .| 4974) "|
|000014d0| 70 22 5d 29 0a 23 40 32 | 37 31 20 49 6e 73 65 72 |p"]).#@2|71 Inser|
|000014e0| 74 20 74 68 69 73 20 63 | 68 61 72 61 63 74 65 72 |t this c|haracter|
|000014f0| 20 69 6e 20 70 6c 61 63 | 65 20 6f 66 20 63 68 61 | in plac|e of cha|
|00001500| 72 61 63 74 65 72 20 70 | 72 65 76 69 6f 75 73 6c |racter p|reviousl|
|00001510| 79 20 61 74 20 74 68 65 | 20 63 75 72 73 6f 72 2e |y at the| cursor.|
|00001520| 0a 54 68 65 20 63 75 72 | 73 6f 72 20 74 68 65 6e |.The cur|sor then|
|00001530| 20 6d 6f 76 65 73 20 69 | 6e 20 74 68 65 20 64 69 | moves i|n the di|
|00001540| 72 65 63 74 69 6f 6e 20 | 79 6f 75 20 70 72 65 76 |rection |you prev|
|00001550| 69 6f 75 73 6c 79 20 73 | 70 65 63 69 66 69 65 64 |iously s|pecified|
|00001560| 0a 77 69 74 68 20 74 68 | 65 20 63 6f 6d 6d 61 6e |.with th|e comman|
|00001570| 64 73 20 60 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |ds `pict|ure-move|
|00001580| 6d 65 6e 74 2d 72 69 67 | 68 74 27 2c 20 60 70 69 |ment-rig|ht', `pi|
|00001590| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 75 |cture-mo|vement-u|
|000015a0| 70 27 2c 20 65 74 63 2e | 0a 44 6f 20 5c 5b 63 6f |p', etc.|.Do \[co|
|000015b0| 6d 6d 61 6e 64 2d 61 70 | 72 6f 70 6f 73 5d 20 60 |mmand-ap|ropos] `|
|000015c0| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 6d 65 6e 74 |picture-|movement|
|000015d0| 27 20 74 6f 20 73 65 65 | 20 74 68 6f 73 65 20 63 |' to see| those c|
|000015e0| 6f 6d 6d 61 6e 64 73 2e | 1f 0a 28 64 65 66 61 6c |ommands.|..(defal|
|000015f0| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 73 65 6c |ias 'pic|ture-sel|
|00001600| 66 2d 69 6e 73 65 72 74 | 20 23 5b 28 61 72 67 29 |f-insert| #[(arg)|
|00001610| 20 22 08 c1 56 ad 9a 08 | 53 10 c2 69 54 21 88 c3 | "..V...|S..iT!..|
|00001620| c4 21 88 0d 63 88 c4 75 | 88 c6 20 88 c7 16 08 aa |.!..c..u|.. .....|
|00001630| 61 87 22 20 5b 61 72 67 | 20 30 20 6d 6f 76 65 2d |a." [arg| 0 move-|
|00001640| 74 6f 2d 63 6f 6c 75 6d | 6e 2d 66 6f 72 63 65 20 |to-colum|n-force |
|00001650| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 2d 31 20 6c |delete-c|har -1 l|
|00001660| 61 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 63 68 61 72 |ast-comm|and-char|
|00001670| 20 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 20 6e 69 | picture|-move ni|
|00001680| 6c 20 7a 6d 61 63 73 2d | 72 65 67 69 6f 6e 2d 73 |l zmacs-|region-s|
|00001690| 74 61 79 73 5d 20 32 20 | 28 23 24 20 2e 20 35 33 |tays] 2 |(#$ . 53|
|000016a0| 33 39 29 20 22 70 22 5d | 29 0a 23 40 35 31 20 43 |39) "p"]|).#@51 C|
|000016b0| 6c 65 61 72 20 6f 75 74 | 20 41 52 47 20 63 6f 6c |lear out| ARG col|
|000016c0| 75 6d 6e 73 20 61 66 74 | 65 72 20 70 6f 69 6e 74 |umns aft|er point|
|000016d0| 20 77 69 74 68 6f 75 74 | 20 6d 6f 76 69 6e 67 2e | without| moving.|
|000016e0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 69 63 |..(defal|ias 'pic|
|000016f0| 74 75 72 65 2d 63 6c 65 | 61 72 2d 63 6f 6c 75 6d |ture-cle|ar-colum|
|00001700| 6e 20 23 5b 28 61 72 67 | 29 20 22 60 18 69 89 19 |n #[(arg|) "`.i..|
|00001710| 5c 6e 5c 5c 1b c4 0b 21 | 88 08 60 7c 88 8a 0b 09 |\n\\...!|..`|....|
|00001720| 5d 6a 2c 87 22 20 5b 6f | 70 6f 69 6e 74 20 6f 72 |]j,." [o|point or|
|00001730| 69 67 69 6e 61 6c 2d 63 | 6f 6c 20 61 72 67 20 74 |iginal-c|ol arg t|
|00001740| 61 72 67 65 74 2d 63 6f | 6c 20 6d 6f 76 65 2d 74 |arget-co|l move-t|
|00001750| 6f 2d 63 6f 6c 75 6d 6e | 2d 66 6f 72 63 65 5d 20 |o-column|-force] |
|00001760| 33 20 28 23 24 20 2e 20 | 35 38 30 37 29 20 22 70 |3 (#$ . |5807) "p|
|00001770| 22 5d 29 0a 23 40 36 30 | 20 43 6c 65 61 72 20 6f |"]).#@60| Clear o|
|00001780| 75 74 20 41 52 47 20 63 | 6f 6c 75 6d 6e 73 20 62 |ut ARG c|olumns b|
|00001790| 65 66 6f 72 65 20 70 6f | 69 6e 74 2c 20 6d 6f 76 |efore po|int, mov|
|000017a0| 69 6e 67 20 62 61 63 6b | 20 6f 76 65 72 20 74 68 |ing back| over th|
|000017b0| 65 6d 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |em...(de|falias '|
|000017c0| 70 69 63 74 75 72 65 2d | 62 61 63 6b 77 61 72 64 |picture-|backward|
|000017d0| 2d 63 6c 65 61 72 2d 63 | 6f 6c 75 6d 6e 20 23 5b |-clear-c|olumn #[|
|000017e0| 28 61 72 67 29 20 22 c0 | 09 5b 21 87 22 20 5b 70 |(arg) ".|.[!." [p|
|000017f0| 69 63 74 75 72 65 2d 63 | 6c 65 61 72 2d 63 6f 6c |icture-c|lear-col|
|00001800| 75 6d 6e 20 61 72 67 5d | 20 32 20 28 23 24 20 2e |umn arg]| 2 (#$ .|
|00001810| 20 36 30 30 39 29 20 22 | 70 22 5d 29 0a 23 40 32 | 6009) "|p"]).#@2|
|00001820| 31 39 20 43 6c 65 61 72 | 20 6f 75 74 20 72 65 73 |19 Clear| out res|
|00001830| 74 20 6f 66 20 6c 69 6e | 65 3b 20 69 66 20 61 74 |t of lin|e; if at|
|00001840| 20 65 6e 64 20 6f 66 20 | 6c 69 6e 65 2c 20 61 64 | end of |line, ad|
|00001850| 76 61 6e 63 65 20 74 6f | 20 6e 65 78 74 20 6c 69 |vance to| next li|
|00001860| 6e 65 2e 0a 43 6c 65 61 | 72 65 64 2d 6f 75 74 20 |ne..Clea|red-out |
|00001870| 6c 69 6e 65 20 74 65 78 | 74 20 67 6f 65 73 20 69 |line tex|t goes i|
|00001880| 6e 74 6f 20 74 68 65 20 | 6b 69 6c 6c 20 72 69 6e |nto the |kill rin|
|00001890| 67 2c 20 61 73 20 64 6f | 20 6e 65 77 6c 69 6e 65 |g, as do| newline|
|000018a0| 73 20 74 68 61 74 20 61 | 72 65 0a 61 64 76 61 6e |s that a|re.advan|
|000018b0| 63 65 64 20 6f 76 65 72 | 2e 20 20 57 69 74 68 20 |ced over|.  With |
|000018c0| 61 72 67 75 6d 65 6e 74 | 2c 20 63 6c 65 61 72 20 |argument|, clear |
|000018d0| 6f 75 74 20 28 61 6e 64 | 20 73 61 76 65 20 69 6e |out (and| save in|
|000018e0| 20 6b 69 6c 6c 20 72 69 | 6e 67 29 20 74 68 61 74 | kill ri|ng) that|
|000018f0| 0a 6d 61 6e 79 20 6c 69 | 6e 65 73 2e 1f 0a 28 64 |.many li|nes...(d|
|00001900| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|00001910| 2d 63 6c 65 61 72 2d 6c | 69 6e 65 20 23 5b 28 61 |-clear-l|ine #[(a|
|00001920| 72 67 29 20 22 08 ab 95 | c1 08 21 10 c2 08 21 88 |rg) "...|..!...!.|
|00001930| c3 08 c4 56 ab 83 08 aa | 82 08 5b 21 87 c5 c6 21 |...V....|..[!...!|
|00001940| ab 8a c7 60 c8 79 88 60 | 5c 22 88 aa 88 c9 60 ca |...`.y.`|\"....`.|
|00001950| 7f 88 60 5c 22 88 ca 89 | 16 0b 87 22 20 5b 61 72 |..`\"...|..." [ar|
|00001960| 67 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |g prefix|-numeric|
|00001970| 2d 76 61 6c 75 65 20 6b | 69 6c 6c 2d 6c 69 6e 65 |-value k|ill-line|
|00001980| 20 6e 65 77 6c 69 6e 65 | 20 30 20 6c 6f 6f 6b 69 | newline| 0 looki|
|00001990| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2a 24 22 20 6b |ng-at "[| .]*$" k|
|000019a0| 69 6c 6c 2d 72 69 6e 67 | 2d 73 61 76 65 20 31 20 |ill-ring|-save 1 |
|000019b0| 6b 69 6c 6c 2d 72 65 67 | 69 6f 6e 20 6e 69 6c 20 |kill-reg|ion nil |
|000019c0| 7a 6d 61 63 73 2d 72 65 | 67 69 6f 6e 2d 73 74 61 |zmacs-re|gion-sta|
|000019d0| 79 73 5d 20 33 20 28 23 | 24 20 2e 20 36 31 37 39 |ys] 3 (#|$ . 6179|
|000019e0| 29 20 22 50 22 5d 29 0a | 23 40 31 35 32 20 4d 6f |) "P"]).|#@152 Mo|
|000019f0| 76 65 20 74 6f 20 74 68 | 65 20 62 65 67 69 6e 6e |ve to th|e beginn|
|00001a00| 69 6e 67 20 6f 66 20 74 | 68 65 20 66 6f 6c 6c 6f |ing of t|he follo|
|00001a10| 77 69 6e 67 20 6c 69 6e | 65 2e 0a 57 69 74 68 20 |wing lin|e..With |
|00001a20| 61 72 67 75 6d 65 6e 74 | 2c 20 6d 6f 76 65 73 20 |argument|, moves |
|00001a30| 74 68 61 74 20 6d 61 6e | 79 20 6c 69 6e 65 73 20 |that man|y lines |
|00001a40| 28 75 70 2c 20 69 66 20 | 6e 65 67 61 74 69 76 65 |(up, if |negative|
|00001a50| 20 61 72 67 75 6d 65 6e | 74 29 3b 0a 61 6c 77 61 | argumen|t);.alwa|
|00001a60| 79 73 20 6d 6f 76 65 73 | 20 74 6f 20 74 68 65 20 |ys moves| to the |
|00001a70| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 61 20 6c |beginnin|g of a l|
|00001a80| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|00001a90| 27 70 69 63 74 75 72 65 | 2d 6e 65 77 6c 69 6e 65 |'picture|-newline|
|00001aa0| 20 23 5b 28 61 72 67 29 | 20 22 08 c1 57 ab 83 08 | #[(arg)| "..W...|
|00001ab0| 79 87 08 c1 56 ad 94 c2 | 7f 88 6d ab 85 c3 20 88 |y...V...|..m... .|
|00001ac0| aa 83 c4 75 88 08 53 89 | 10 aa 68 87 22 20 5b 61 |...u..S.|..h." [a|
|00001ad0| 72 67 20 30 20 6e 69 6c | 20 6e 65 77 6c 69 6e 65 |rg 0 nil| newline|
|00001ae0| 20 31 5d 20 33 20 28 23 | 24 20 2e 20 36 36 33 38 | 1] 3 (#|$ . 6638|
|00001af0| 29 20 22 70 22 5d 29 0a | 23 40 39 33 20 49 6e 73 |) "p"]).|#@93 Ins|
|00001b00| 65 72 74 20 61 6e 20 65 | 6d 70 74 79 20 6c 69 6e |ert an e|mpty lin|
|00001b10| 65 20 61 66 74 65 72 20 | 74 68 65 20 63 75 72 72 |e after |the curr|
|00001b20| 65 6e 74 20 6c 69 6e 65 | 2e 0a 57 69 74 68 20 70 |ent line|..With p|
|00001b30| 6f 73 69 74 69 76 65 20 | 61 72 67 75 6d 65 6e 74 |ositive |argument|
|00001b40| 20 69 6e 73 65 72 74 20 | 74 68 61 74 20 6d 61 6e | insert |that man|
|00001b50| 79 20 6c 69 6e 65 73 2e | 1f 0a 28 64 65 66 61 6c |y lines.|..(defal|
|00001b60| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 6f 70 65 |ias 'pic|ture-ope|
|00001b70| 6e 2d 6c 69 6e 65 20 23 | 5b 28 61 72 67 29 20 22 |n-line #|[(arg) "|
|00001b80| 8a c0 7f 88 c1 5c 6e 21 | 29 87 22 20 5b 6e 69 6c |.....\n!|)." [nil|
|00001b90| 20 6f 70 65 6e 2d 6c 69 | 6e 65 20 61 72 67 5d 20 | open-li|ne arg] |
|00001ba0| 32 20 28 23 24 20 2e 20 | 36 39 30 39 29 20 22 70 |2 (#$ . |6909) "p|
|00001bb0| 22 5d 29 0a 23 40 35 31 | 20 49 6e 73 65 72 74 20 |"]).#@51| Insert |
|00001bc0| 61 20 64 75 70 6c 69 63 | 61 74 65 20 6f 66 20 74 |a duplic|ate of t|
|00001bd0| 68 65 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2c |he curre|nt line,|
|00001be0| 20 62 65 6c 6f 77 20 69 | 74 2e 1f 0a 28 64 65 66 | below i|t...(def|
|00001bf0| 61 6c 69 61 73 20 27 70 | 69 63 74 75 72 65 2d 64 |alias 'p|icture-d|
|00001c00| 75 70 6c 69 63 61 74 65 | 2d 6c 69 6e 65 20 23 5b |uplicate|-line #[|
|00001c10| 6e 69 6c 20 22 8a c0 79 | 88 60 c1 c2 21 88 60 7b |nil "..y|.`..!.`{|
|00001c20| 1b c4 79 88 0b 63 2a 87 | 22 20 5b 30 20 70 69 63 |..y..c*.|" [0 pic|
|00001c30| 74 75 72 65 2d 6e 65 77 | 6c 69 6e 65 20 31 20 63 |ture-new|line 1 c|
|00001c40| 6f 6e 74 65 6e 74 73 20 | 2d 31 5d 20 33 20 28 23 |ontents |-1] 3 (#|
|00001c50| 24 20 2e 20 37 30 39 37 | 29 20 6e 69 6c 5d 29 0a |$ . 7097|) nil]).|
|00001c60| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00001c70| 72 65 2d 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 |re-repla|ce-match|
|00001c80| 20 23 5b 28 6e 65 77 74 | 65 78 74 20 66 69 78 65 | #[(newt|ext fixe|
|00001c90| 64 63 61 73 65 20 6c 69 | 74 65 72 61 6c 29 20 22 |dcase li|teral) "|
|00001ca0| c0 89 89 19 1a 1b c4 95 | 89 11 62 88 69 13 c0 89 |........|..b.i...|
|00001cb0| 1d 1e 06 c7 0e 08 0e 09 | 0e 5c 6e 23 88 69 0b 5a |........|.\n#.i.Z|
|00001cc0| 12 0e 06 89 15 ab 88 cb | cc 0d 5c 22 89 15 ac 78 |........|..\"...x|
|00001cd0| 2a 09 62 88 5c 6e c4 56 | ab 8a 60 cd 5c 6e 69 5c |*.b.\n.V|..`.\ni\|
|00001ce0| 5c 21 88 60 7c 88 c7 0e | 08 0e 09 0e 5c 6e 23 88 |\!.`|...|....\n#.|
|00001cf0| 5c 6e c4 57 ad 85 ce cf | 5c 6e 5b 5c 22 2b 87 22 |\n.W....|\n[\"+."|
|00001d00| 20 5b 6e 69 6c 20 70 6f | 73 20 63 68 61 6e 67 65 | [nil po|s change|
|00001d10| 20 6f 63 6f 6c 75 6d 6e | 20 30 20 6c 69 73 74 31 | ocolumn| 0 list1|
|00001d20| 20 62 75 66 66 65 72 2d | 75 6e 64 6f 2d 6c 69 73 | buffer-|undo-lis|
|00001d30| 74 20 72 65 70 6c 61 63 | 65 2d 6d 61 74 63 68 20 |t replac|e-match |
|00001d40| 6e 65 77 74 65 78 74 20 | 66 69 78 65 64 63 61 73 |newtext |fixedcas|
|00001d50| 65 20 6c 69 74 65 72 61 | 6c 20 70 72 69 6d 69 74 |e litera|l primit|
|00001d60| 69 76 65 2d 75 6e 64 6f | 20 31 20 6d 6f 76 65 2d |ive-undo| 1 move-|
|00001d70| 74 6f 2d 63 6f 6c 75 6d | 6e 2d 66 6f 72 63 65 20 |to-colum|n-force |
|00001d80| 69 6e 73 65 72 74 2d 63 | 68 61 72 20 3f 5c 20 5d |insert-c|har ?\ ]|
|00001d90| 20 35 5d 29 0a 23 40 31 | 31 38 30 20 2a 41 20 63 | 5]).#@1|180 *A c|
|00001da0| 68 61 72 61 63 74 65 72 | 20 73 65 74 20 77 68 69 |haracter| set whi|
|00001db0| 63 68 20 63 6f 6e 74 72 | 6f 6c 73 20 62 65 68 61 |ch contr|ols beha|
|00001dc0| 76 69 6f 72 20 6f 66 20 | 63 6f 6d 6d 61 6e 64 73 |vior of |commands|
|00001dd0| 0a 5c 5b 70 69 63 74 75 | 72 65 2d 73 65 74 2d 74 |.\[pictu|re-set-t|
|00001de0| 61 62 2d 73 74 6f 70 73 | 5d 20 61 6e 64 20 5c 5b |ab-stops|] and \[|
|00001df0| 70 69 63 74 75 72 65 2d | 74 61 62 2d 73 65 61 72 |picture-|tab-sear|
|00001e00| 63 68 5d 2e 20 20 49 74 | 20 69 73 20 4e 4f 54 20 |ch].  It| is NOT |
|00001e10| 61 0a 72 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |a.regula|r expres|
|00001e20| 73 69 6f 6e 2c 20 61 6e | 79 20 72 65 67 65 78 70 |sion, an|y regexp|
|00001e30| 20 73 70 65 63 69 61 6c | 20 63 68 61 72 61 63 74 | special| charact|
|00001e40| 65 72 73 20 77 69 6c 6c | 20 62 65 20 71 75 6f 74 |ers will| be quot|
|00001e50| 65 64 2e 0a 49 74 20 64 | 65 66 69 6e 65 73 20 61 |ed..It d|efines a|
|00001e60| 20 73 65 74 20 6f 66 20 | 22 69 6e 74 65 72 65 73 | set of |"interes|
|00001e70| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 73 22 |ting cha|racters"|
|00001e80| 20 74 6f 20 6c 6f 6f 6b | 20 66 6f 72 20 77 68 65 | to look| for whe|
|00001e90| 6e 20 73 65 74 74 69 6e | 67 0a 28 6f 72 20 73 65 |n settin|g.(or se|
|00001ea0| 61 72 63 68 69 6e 67 20 | 66 6f 72 29 20 74 61 62 |arching |for) tab|
|00001eb0| 20 73 74 6f 70 73 2c 20 | 69 6e 69 74 69 61 6c 6c | stops, |initiall|
|00001ec0| 79 20 22 21 2d 7e 22 20 | 28 61 6c 6c 20 70 72 69 |y "!-~" |(all pri|
|00001ed0| 6e 74 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 73 |nting ch|aracters|
|00001ee0| 29 2e 0a 46 6f 72 20 65 | 78 61 6d 70 6c 65 2c 20 |)..For e|xample, |
|00001ef0| 73 75 70 70 6f 73 65 20 | 74 68 61 74 20 79 6f 75 |suppose |that you|
|00001f00| 20 61 72 65 20 65 64 69 | 74 69 6e 67 20 61 20 74 | are edi|ting a t|
|00001f10| 61 62 6c 65 20 77 68 69 | 63 68 20 69 73 20 66 6f |able whi|ch is fo|
|00001f20| 72 6d 61 74 74 65 64 20 | 74 68 75 73 3a 0a 7c 20 |rmatted |thus:.| |
|00001f30| 66 6f 6f 09 09 7c 20 62 | 61 72 20 2b 20 62 61 7a |foo..| b|ar + baz|
|00001f40| 20 7c 20 32 33 20 20 2a | 0a 7c 20 62 75 62 62 6c | | 23  *|.| bubbl|
|00001f50| 65 73 09 7c 20 61 6e 64 | 20 2b 20 65 74 63 20 7c |es.| and| + etc ||
|00001f60| 20 39 37 20 20 2a 0a 61 | 6e 64 20 74 68 61 74 20 | 97  *.a|nd that |
|00001f70| 60 70 69 63 74 75 72 65 | 2d 74 61 62 2d 63 68 61 |`picture|-tab-cha|
|00001f80| 72 73 27 20 69 73 20 22 | 7c 2b 2a 22 2e 20 20 54 |rs' is "||+*".  T|
|00001f90| 68 65 6e 20 69 6e 76 6f | 6b 69 6e 67 0a 5c 5b 70 |hen invo|king.\[p|
|00001fa0| 69 63 74 75 72 65 2d 73 | 65 74 2d 74 61 62 2d 73 |icture-s|et-tab-s|
|00001fb0| 74 6f 70 73 5d 20 6f 6e | 20 65 69 74 68 65 72 20 |tops] on| either |
|00001fc0| 6f 66 20 74 68 65 20 70 | 72 65 76 69 6f 75 73 20 |of the p|revious |
|00001fd0| 6c 69 6e 65 73 20 77 6f | 75 6c 64 20 72 65 73 75 |lines wo|uld resu|
|00001fe0| 6c 74 0a 69 6e 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |lt.in th|e follow|
|00001ff0| 69 6e 67 20 74 61 62 20 | 73 74 6f 70 73 0a 09 09 |ing tab |stops...|
|00002000| 3a 20 20 20 20 20 3a 20 | 20 20 20 20 3a 20 20 20 |:     : |    :   |
|00002010| 20 20 3a 0a 41 6e 6f 74 | 68 65 72 20 65 78 61 6d |  :.Anot|her exam|
|00002020| 70 6c 65 20 2d 20 22 41 | 2d 5a 61 2d 7a 30 2d 39 |ple - "A|-Za-z0-9|
|00002030| 22 20 77 6f 75 6c 64 20 | 70 72 6f 64 75 63 65 20 |" would |produce |
|00002040| 74 68 65 20 74 61 62 20 | 73 74 6f 70 73 0a 20 20 |the tab |stops.  |
|00002050| 3a 09 09 20 20 3a 09 3a | 20 20 20 20 20 3a 0a 0a |:..  :.:|     :..|
|00002060| 4e 6f 74 65 20 74 68 61 | 74 20 69 66 20 79 6f 75 |Note tha|t if you|
|00002070| 20 77 61 6e 74 20 74 68 | 65 20 63 68 61 72 61 63 | want th|e charac|
|00002080| 74 65 72 20 60 2d 27 20 | 74 6f 20 62 65 20 69 6e |ter `-' |to be in|
|00002090| 20 74 68 65 20 73 65 74 | 2c 20 69 74 20 6d 75 73 | the set|, it mus|
|000020a0| 74 20 62 65 0a 69 6e 63 | 6c 75 64 65 64 20 69 6e |t be.inc|luded in|
|000020b0| 20 61 20 72 61 6e 67 65 | 20 6f 72 20 65 6c 73 65 | a range| or else|
|000020c0| 20 61 70 70 65 61 72 20 | 69 6e 20 61 20 63 6f 6e | appear |in a con|
|000020d0| 74 65 78 74 20 77 68 65 | 72 65 20 69 74 20 63 61 |text whe|re it ca|
|000020e0| 6e 6e 6f 74 20 62 65 0a | 74 61 6b 65 6e 20 66 6f |nnot be.|taken fo|
|000020f0| 72 20 69 6e 64 69 63 61 | 74 69 6e 67 20 61 20 72 |r indica|ting a r|
|00002100| 61 6e 67 65 20 28 65 2e | 67 2e 20 22 2d 41 2d 5a |ange (e.|g. "-A-Z|
|00002110| 22 20 64 65 63 6c 61 72 | 65 73 20 74 68 65 20 73 |" declar|es the s|
|00002120| 65 74 20 74 6f 20 62 65 | 20 74 68 65 0a 6c 65 74 |et to be| the.let|
|00002130| 74 65 72 73 20 60 41 27 | 20 74 68 72 6f 75 67 68 |ters `A'| through|
|00002140| 20 60 5a 27 20 61 6e 64 | 20 74 68 65 20 63 68 61 | `Z' and| the cha|
|00002150| 72 61 63 74 65 72 20 60 | 2d 27 29 2e 20 20 49 66 |racter `|-').  If|
|00002160| 20 79 6f 75 20 77 61 6e | 74 20 74 68 65 0a 63 68 | you wan|t the.ch|
|00002170| 61 72 61 63 74 65 72 20 | 60 5c 27 20 69 6e 20 74 |aracter |`\' in t|
|00002180| 68 65 20 73 65 74 20 69 | 74 20 6d 75 73 74 20 62 |he set i|t must b|
|00002190| 65 20 70 72 65 63 65 64 | 65 64 20 62 79 20 69 74 |e preced|ed by it|
|000021a0| 73 65 6c 66 3a 20 22 5c | 5c 22 2e 0a 0a 54 68 65 |self: "\|\"...The|
|000021b0| 20 63 6f 6d 6d 61 6e 64 | 20 5c 5b 70 69 63 74 75 | command| \[pictu|
|000021c0| 72 65 2d 74 61 62 2d 73 | 65 61 72 63 68 5d 20 69 |re-tab-s|earch] i|
|000021d0| 73 20 64 65 66 69 6e 65 | 64 20 74 6f 20 6d 6f 76 |s define|d to mov|
|000021e0| 65 20 62 65 6e 65 61 74 | 68 20 28 6f 72 20 74 6f |e beneat|h (or to|
|000021f0| 29 20 61 0a 63 68 61 72 | 61 63 74 65 72 20 62 65 |) a.char|acter be|
|00002200| 6c 6f 6e 67 69 6e 67 20 | 74 6f 20 74 68 69 73 20 |longing |to this |
|00002210| 73 65 74 20 69 6e 64 65 | 70 65 6e 64 65 6e 74 20 |set inde|pendent |
|00002220| 6f 66 20 74 68 65 20 74 | 61 62 20 73 74 6f 70 73 |of the t|ab stops|
|00002230| 20 6c 69 73 74 2e 1f 0a | 28 64 65 66 76 61 72 20 | list...|(defvar |
|00002240| 70 69 63 74 75 72 65 2d | 74 61 62 2d 63 68 61 72 |picture-|tab-char|
|00002250| 73 20 22 21 2d 7e 22 20 | 28 23 24 20 2e 20 2d 37 |s "!-~" |(#$ . -7|
|00002260| 35 38 30 29 29 0a 23 40 | 34 37 37 20 53 65 74 20 |580)).#@|477 Set |
|00002270| 76 61 6c 75 65 20 6f 66 | 20 60 74 61 62 2d 73 74 |value of| `tab-st|
|00002280| 6f 70 2d 6c 69 73 74 27 | 20 61 63 63 6f 72 64 69 |op-list'| accordi|
|00002290| 6e 67 20 74 6f 20 63 6f | 6e 74 65 78 74 20 6f 66 |ng to co|ntext of|
|000022a0| 20 74 68 69 73 20 6c 69 | 6e 65 2e 0a 54 68 69 73 | this li|ne..This|
|000022b0| 20 63 6f 6e 74 72 6f 6c | 73 20 74 68 65 20 62 65 | control|s the be|
|000022c0| 68 61 76 69 6f 72 20 6f | 66 20 5c 5b 70 69 63 74 |havior o|f \[pict|
|000022d0| 75 72 65 2d 74 61 62 5d | 2e 20 20 41 20 74 61 62 |ure-tab]|.  A tab|
|000022e0| 20 73 74 6f 70 20 69 73 | 20 73 65 74 20 61 74 0a | stop is| set at.|
|000022f0| 65 76 65 72 79 20 63 6f | 6c 75 6d 6e 20 6f 63 63 |every co|lumn occ|
|00002300| 75 70 69 65 64 20 62 79 | 20 61 6e 20 22 69 6e 74 |upied by| an "int|
|00002310| 65 72 65 73 74 69 6e 67 | 20 63 68 61 72 61 63 74 |eresting| charact|
|00002320| 65 72 22 20 74 68 61 74 | 20 69 73 20 70 72 65 63 |er" that| is prec|
|00002330| 65 64 65 64 0a 62 79 20 | 77 68 69 74 65 73 70 61 |eded.by |whitespa|
|00002340| 63 65 2e 20 20 49 6e 74 | 65 72 65 73 74 69 6e 67 |ce.  Int|eresting|
|00002350| 20 63 68 61 72 61 63 74 | 65 72 73 20 61 72 65 20 | charact|ers are |
|00002360| 64 65 66 69 6e 65 64 20 | 62 79 20 74 68 65 20 76 |defined |by the v|
|00002370| 61 72 69 61 62 6c 65 0a | 60 70 69 63 74 75 72 65 |ariable.|`picture|
|00002380| 2d 74 61 62 2d 63 68 61 | 72 73 27 2c 20 73 65 65 |-tab-cha|rs', see|
|00002390| 20 69 74 73 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | its doc|umentati|
|000023a0| 6f 6e 20 66 6f 72 20 61 | 6e 20 65 78 61 6d 70 6c |on for a|n exampl|
|000023b0| 65 20 6f 66 20 75 73 61 | 67 65 2e 0a 57 69 74 68 |e of usa|ge..With|
|000023c0| 20 41 52 47 2c 20 6a 75 | 73 74 20 28 72 65 29 73 | ARG, ju|st (re)s|
|000023d0| 65 74 20 60 74 61 62 2d | 73 74 6f 70 2d 6c 69 73 |et `tab-|stop-lis|
|000023e0| 74 27 20 74 6f 20 69 74 | 73 20 64 65 66 61 75 6c |t' to it|s defaul|
|000023f0| 74 20 76 61 6c 75 65 2e | 20 20 54 68 65 20 74 61 |t value.|  The ta|
|00002400| 62 0a 73 74 6f 70 73 20 | 63 6f 6d 70 75 74 65 64 |b.stops |computed|
|00002410| 20 61 72 65 20 64 69 73 | 70 6c 61 79 65 64 20 69 | are dis|played i|
|00002420| 6e 20 74 68 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |n the mi|nibuffer|
|00002430| 20 77 69 74 68 20 60 3a | 27 20 61 74 20 65 61 63 | with `:|' at eac|
|00002440| 68 20 73 74 6f 70 2e 1f | 0a 28 64 65 66 61 6c 69 |h stop..|.(defali|
|00002450| 61 73 20 27 70 69 63 74 | 75 72 65 2d 73 65 74 2d |as 'pict|ure-set-|
|00002460| 74 61 62 2d 73 74 6f 70 | 73 20 23 5b 28 26 6f 70 |tab-stop|s #[(&op|
|00002470| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 8a c0 19 |tional a|rg) "...|
|00002480| 5c 6e ab 86 c3 c4 21 11 | aa b1 c5 c6 0e 07 21 c8 |\n....!.|......!.|
|00002490| 51 1e 09 ca 79 88 60 1e | 0b c0 7f 88 cc 0e 09 0e |Q...y.`.|........|
|000024a0| 0b cd 23 ab 8a ce c0 77 | 88 69 09 42 11 aa 6d 09 |..#....w|.i.B..m.|
|000024b0| ac 88 cf d0 c6 0e 07 21 | 5c 22 88 2a 09 14 d1 09 |.......!|\".*....|
|000024c0| 47 53 09 38 54 d2 5c 22 | 1e 13 09 ab 8d 0e 13 09 |GS.8T.\"|........|
|000024d0| 40 d4 49 88 09 41 89 11 | ac 73 d5 0e 13 21 2b 87 |@.I..A..|.s...!+.|
|000024e0| 22 20 5b 6e 69 6c 20 74 | 61 62 73 20 61 72 67 20 |" [nil t|abs arg |
|000024f0| 64 65 66 61 75 6c 74 2d | 76 61 6c 75 65 20 74 61 |default-|value ta|
|00002500| 62 2d 73 74 6f 70 2d 6c | 69 73 74 20 22 5b 20 09 |b-stop-l|ist "[ .|
|00002510| 5d 2b 5b 22 20 72 65 67 | 65 78 70 2d 71 75 6f 74 |]+[" reg|exp-quot|
|00002520| 65 20 70 69 63 74 75 72 | 65 2d 74 61 62 2d 63 68 |e pictur|e-tab-ch|
|00002530| 61 72 73 20 22 5d 22 20 | 72 65 67 65 78 70 20 30 |ars "]" |regexp 0|
|00002540| 20 62 6f 6c 20 72 65 2d | 73 65 61 72 63 68 2d 62 | bol re-|search-b|
|00002550| 61 63 6b 77 61 72 64 20 | 74 20 22 20 09 22 20 65 |ackward |t " ." e|
|00002560| 72 72 6f 72 20 22 4e 6f | 20 63 68 61 72 61 63 74 |rror "No| charact|
|00002570| 65 72 73 20 69 6e 20 73 | 65 74 20 25 73 20 6f 6e |ers in s|et %s on|
|00002580| 20 74 68 69 73 20 6c 69 | 6e 65 2e 22 20 6d 61 6b | this li|ne." mak|
|00002590| 65 2d 73 74 72 69 6e 67 | 20 3f 5c 20 20 62 6c 75 |e-string| ?\  blu|
|000025a0| 72 62 20 3f 5c 3a 20 6d | 65 73 73 61 67 65 5d 20 |rb ?\: m|essage] |
|000025b0| 35 20 28 23 24 20 2e 20 | 38 38 31 32 29 20 22 50 |5 (#$ . |8812) "P|
|000025c0| 22 5d 29 0a 23 40 33 31 | 36 20 4d 6f 76 65 20 74 |"]).#@31|6 Move t|
|000025d0| 6f 20 63 6f 6c 75 6d 6e | 20 62 65 6e 65 61 74 68 |o column| beneath|
|000025e0| 20 6e 65 78 74 20 69 6e | 74 65 72 65 73 74 69 6e | next in|terestin|
|000025f0| 67 20 63 68 61 72 20 69 | 6e 20 70 72 65 76 69 6f |g char i|n previo|
|00002600| 75 73 20 6c 69 6e 65 2e | 0a 57 69 74 68 20 41 52 |us line.|.With AR|
|00002610| 47 20 6d 6f 76 65 20 74 | 6f 20 63 6f 6c 75 6d 6e |G move t|o column|
|00002620| 20 6f 63 63 75 70 69 65 | 64 20 62 79 20 6e 65 78 | occupie|d by nex|
|00002630| 74 20 69 6e 74 65 72 65 | 73 74 69 6e 67 20 63 68 |t intere|sting ch|
|00002640| 61 72 61 63 74 65 72 20 | 69 6e 20 74 68 69 73 0a |aracter |in this.|
|00002650| 6c 69 6e 65 2e 20 20 54 | 68 65 20 63 68 61 72 61 |line.  T|he chara|
|00002660| 63 74 65 72 20 6d 75 73 | 74 20 62 65 20 70 72 65 |cter mus|t be pre|
|00002670| 63 65 64 65 64 20 62 79 | 20 77 68 69 74 65 73 70 |ceded by| whitesp|
|00002680| 61 63 65 2e 0a 22 69 6e | 74 65 72 65 73 74 69 6e |ace.."in|terestin|
|00002690| 67 20 63 68 61 72 61 63 | 74 65 72 73 22 20 61 72 |g charac|ters" ar|
|000026a0| 65 20 64 65 66 69 6e 65 | 64 20 62 79 20 76 61 72 |e define|d by var|
|000026b0| 69 61 62 6c 65 20 60 70 | 69 63 74 75 72 65 2d 74 |iable `p|icture-t|
|000026c0| 61 62 2d 63 68 61 72 73 | 27 2e 0a 49 66 20 6e 6f |ab-chars|'..If no|
|000026d0| 20 73 75 63 68 20 63 68 | 61 72 61 63 74 65 72 20 | such ch|aracter |
|000026e0| 69 73 20 66 6f 75 6e 64 | 2c 20 6d 6f 76 65 20 74 |is found|, move t|
|000026f0| 6f 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 6c |o beginn|ing of l|
|00002700| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|00002710| 27 70 69 63 74 75 72 65 | 2d 74 61 62 2d 73 65 61 |'picture|-tab-sea|
|00002720| 72 63 68 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |rch #[(&|optional|
|00002730| 20 61 72 67 29 20 22 69 | 18 8a 09 ac 92 c2 79 88 | arg) "i|......y.|
|00002740| c3 c4 0d 21 50 65 78 88 | 6f ac 84 c6 08 21 88 c7 |...!Pex.|o....!..|
|00002750| c8 c4 0d 21 c9 51 8a ca | 7f 88 60 29 cb 23 ab 85 |...!.Q..|..`).#..|
|00002760| 69 53 10 aa 82 ca 10 29 | 08 ab 85 cc 08 21 aa 84 |iS.....)|.....!..|
|00002770| c2 79 88 ca 29 87 22 20 | 5b 74 61 72 67 65 74 20 |.y..)." |[target |
|00002780| 61 72 67 20 30 20 22 5e | 22 20 72 65 67 65 78 70 |arg 0 "^|" regexp|
|00002790| 2d 71 75 6f 74 65 20 70 | 69 63 74 75 72 65 2d 74 |-quote p|icture-t|
|000027a0| 61 62 2d 63 68 61 72 73 | 20 6d 6f 76 65 2d 74 6f |ab-chars| move-to|
|000027b0| 2d 63 6f 6c 75 6d 6e 20 | 72 65 2d 73 65 61 72 63 |-column |re-searc|
|000027c0| 68 2d 66 6f 72 77 61 72 | 64 20 22 5b 20 09 5d 2b |h-forwar|d "[ .]+|
|000027d0| 5b 22 20 22 5d 22 20 6e | 69 6c 20 6d 6f 76 65 20 |[" "]" n|il move |
|000027e0| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 2d 66 |move-to-|column-f|
|000027f0| 6f 72 63 65 5d 20 34 20 | 28 23 24 20 2e 20 39 36 |orce] 4 |(#$ . 96|
|00002800| 37 34 29 20 22 50 22 5d | 29 0a 23 40 32 35 36 20 |74) "P"]|).#@256 |
|00002810| 54 61 62 20 74 72 61 6e | 73 70 61 72 65 6e 74 6c |Tab tran|sparentl|
|00002820| 79 20 28 6a 75 73 74 20 | 6d 6f 76 65 20 70 6f 69 |y (just |move poi|
|00002830| 6e 74 29 20 74 6f 20 6e | 65 78 74 20 74 61 62 20 |nt) to n|ext tab |
|00002840| 73 74 6f 70 2e 0a 57 69 | 74 68 20 70 72 65 66 69 |stop..Wi|th prefi|
|00002850| 78 20 61 72 67 2c 20 6f | 76 65 72 77 72 69 74 65 |x arg, o|verwrite|
|00002860| 20 74 68 65 20 74 72 61 | 76 65 72 73 65 64 20 74 | the tra|versed t|
|00002870| 65 78 74 20 77 69 74 68 | 20 73 70 61 63 65 73 2e |ext with| spaces.|
|00002880| 20 20 54 68 65 20 74 61 | 62 20 73 74 6f 70 0a 6c |  The ta|b stop.l|
|00002890| 69 73 74 20 63 61 6e 20 | 62 65 20 63 68 61 6e 67 |ist can |be chang|
|000028a0| 65 64 20 62 79 20 5c 5b | 70 69 63 74 75 72 65 2d |ed by \[|picture-|
|000028b0| 73 65 74 2d 74 61 62 2d | 73 74 6f 70 73 5d 20 61 |set-tab-|stops] a|
|000028c0| 6e 64 20 5c 5b 65 64 69 | 74 2d 74 61 62 2d 73 74 |nd \[edi|t-tab-st|
|000028d0| 6f 70 73 5d 2e 0a 53 65 | 65 20 61 6c 73 6f 20 64 |ops]..Se|e also d|
|000028e0| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 |ocumenta|tion for|
|000028f0| 20 76 61 72 69 61 62 6c | 65 20 60 70 69 63 74 75 | variabl|e `pictu|
|00002900| 72 65 2d 74 61 62 2d 63 | 68 61 72 73 27 2e 1f 0a |re-tab-c|hars'...|
|00002910| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00002920| 72 65 2d 74 61 62 20 23 | 5b 28 26 6f 70 74 69 6f |re-tab #|[(&optio|
|00002930| 6e 61 6c 20 61 72 67 29 | 20 22 60 18 c1 20 88 5c |nal arg)| "`.. .\|
|00002940| 6e ab 8d c3 69 1c 1d 08 | 60 7c 88 0c 6a 2a aa 84 |n...i...|`|..j*..|
|00002950| c6 89 16 07 29 87 22 20 | 5b 6f 70 6f 69 6e 74 20 |....)." |[opoint |
|00002960| 6d 6f 76 65 2d 74 6f 2d | 74 61 62 2d 73 74 6f 70 |move-to-|tab-stop|
|00002970| 20 61 72 67 20 6e 69 6c | 20 63 6f 6c 75 6d 6e 20 | arg nil| column |
|00002980| 69 6e 64 65 6e 74 2d 74 | 61 62 73 2d 6d 6f 64 65 |indent-t|abs-mode|
|00002990| 20 74 20 7a 6d 61 63 73 | 2d 72 65 67 69 6f 6e 2d | t zmacs|-region-|
|000029a0| 73 74 61 79 73 5d 20 32 | 20 28 23 24 20 2e 20 31 |stays] 2| (#$ . 1|
|000029b0| 30 32 35 36 29 20 22 50 | 22 5d 29 0a 23 40 31 33 |0256) "P|"]).#@13|
|000029c0| 34 20 52 65 63 74 61 6e | 67 6c 65 20 6b 69 6c 6c |4 Rectan|gle kill|
|000029d0| 65 64 20 6f 72 20 63 6f | 70 69 65 64 20 62 79 20 |ed or co|pied by |
|000029e0| 5c 5b 70 69 63 74 75 72 | 65 2d 63 6c 65 61 72 2d |\[pictur|e-clear-|
|000029f0| 72 65 63 74 61 6e 67 6c | 65 5d 20 69 6e 20 50 69 |rectangl|e] in Pi|
|00002a00| 63 74 75 72 65 20 6d 6f | 64 65 2e 0a 54 68 65 20 |cture mo|de..The |
|00002a10| 63 6f 6e 74 65 6e 74 73 | 20 63 61 6e 20 62 65 20 |contents| can be |
|00002a20| 72 65 74 72 69 65 76 65 | 64 20 62 79 20 5c 5b 70 |retrieve|d by \[p|
|00002a30| 69 63 74 75 72 65 2d 79 | 61 6e 6b 2d 72 65 63 74 |icture-y|ank-rect|
|00002a40| 61 6e 67 6c 65 5d 1f 0a | 28 64 65 66 63 6f 6e 73 |angle]..|(defcons|
|00002a50| 74 20 70 69 63 74 75 72 | 65 2d 6b 69 6c 6c 65 64 |t pictur|e-killed|
|00002a60| 2d 72 65 63 74 61 6e 67 | 6c 65 20 6e 69 6c 20 28 |-rectang|le nil (|
|00002a70| 23 24 20 2e 20 31 30 36 | 39 30 29 29 0a 23 40 32 |#$ . 106|90)).#@2|
|00002a80| 38 32 20 43 6c 65 61 72 | 20 61 6e 64 20 73 61 76 |82 Clear| and sav|
|00002a90| 65 20 72 65 63 74 61 6e | 67 6c 65 20 64 65 6c 69 |e rectan|gle deli|
|00002aa0| 6e 65 61 74 65 64 20 62 | 79 20 70 6f 69 6e 74 20 |neated b|y point |
|00002ab0| 61 6e 64 20 6d 61 72 6b | 2e 0a 54 68 65 20 72 65 |and mark|..The re|
|00002ac0| 63 74 61 6e 67 6c 65 20 | 69 73 20 73 61 76 65 64 |ctangle |is saved|
|00002ad0| 20 66 6f 72 20 79 61 6e | 6b 69 6e 67 20 62 79 20 | for yan|king by |
|00002ae0| 5c 5b 70 69 63 74 75 72 | 65 2d 79 61 6e 6b 2d 72 |\[pictur|e-yank-r|
|00002af0| 65 63 74 61 6e 67 6c 65 | 5d 20 61 6e 64 20 72 65 |ectangle|] and re|
|00002b00| 70 6c 61 63 65 64 0a 77 | 69 74 68 20 77 68 69 74 |placed.w|ith whit|
|00002b10| 65 73 70 61 63 65 2e 20 | 20 54 68 65 20 70 72 65 |espace. | The pre|
|00002b20| 76 69 6f 75 73 6c 79 20 | 73 61 76 65 64 20 72 65 |viously |saved re|
|00002b30| 63 74 61 6e 67 6c 65 2c | 20 69 66 20 61 6e 79 2c |ctangle,| if any,|
|00002b40| 20 69 73 20 6c 6f 73 74 | 2e 20 20 57 69 74 68 0a | is lost|.  With.|
|00002b50| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 2c |prefix a|rgument,|
|00002b60| 20 74 68 65 20 72 65 63 | 74 61 6e 67 6c 65 20 69 | the rec|tangle i|
|00002b70| 73 20 61 63 74 75 61 6c | 6c 79 20 6b 69 6c 6c 65 |s actual|ly kille|
|00002b80| 64 2c 20 73 68 69 66 74 | 69 6e 67 20 72 65 6d 61 |d, shift|ing rema|
|00002b90| 69 6e 69 6e 67 20 74 65 | 78 74 2e 1f 0a 28 64 65 |ining te|xt...(de|
|00002ba0| 66 61 6c 69 61 73 20 27 | 70 69 63 74 75 72 65 2d |falias '|picture-|
|00002bb0| 63 6c 65 61 72 2d 72 65 | 63 74 61 6e 67 6c 65 20 |clear-re|ctangle |
|00002bc0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 20 26 6f 70 |#[(start| end &op|
|00002bd0| 74 69 6f 6e 61 6c 20 6b | 69 6c 6c 70 29 20 22 c0 |tional k|illp) ".|
|00002be0| 09 5c 6e 0b 23 89 14 87 | 22 20 5b 70 69 63 74 75 |.\n.#...|" [pictu|
|00002bf0| 72 65 2d 73 6e 61 72 66 | 2d 72 65 63 74 61 6e 67 |re-snarf|-rectang|
|00002c00| 6c 65 20 73 74 61 72 74 | 20 65 6e 64 20 6b 69 6c |le start| end kil|
|00002c10| 6c 70 20 70 69 63 74 75 | 72 65 2d 6b 69 6c 6c 65 |lp pictu|re-kille|
|00002c20| 64 2d 72 65 63 74 61 6e | 67 6c 65 5d 20 34 20 28 |d-rectan|gle] 4 (|
|00002c30| 23 24 20 2e 20 31 30 38 | 38 33 29 20 22 72 5c 6e |#$ . 108|83) "r\n|
|00002c40| 50 22 5d 29 0a 23 40 32 | 30 38 20 43 6c 65 61 72 |P"]).#@2|08 Clear|
|00002c50| 20 72 65 63 74 61 6e 67 | 6c 65 20 64 65 6c 69 6e | rectang|le delin|
|00002c60| 65 61 74 65 64 20 62 79 | 20 70 6f 69 6e 74 20 61 |eated by| point a|
|00002c70| 6e 64 20 6d 61 72 6b 20 | 69 6e 74 6f 20 52 45 47 |nd mark |into REG|
|00002c80| 49 53 54 45 52 2e 0a 54 | 68 65 20 72 65 63 74 61 |ISTER..T|he recta|
|00002c90| 6e 67 6c 65 20 69 73 20 | 73 61 76 65 64 20 69 6e |ngle is |saved in|
|00002ca0| 20 52 45 47 49 53 54 45 | 52 20 61 6e 64 20 72 65 | REGISTE|R and re|
|00002cb0| 70 6c 61 63 65 64 20 77 | 69 74 68 20 77 68 69 74 |placed w|ith whit|
|00002cc0| 65 73 70 61 63 65 2e 20 | 20 57 69 74 68 0a 70 72 |espace. | With.pr|
|00002cd0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 2c 20 74 |efix arg|ument, t|
|00002ce0| 68 65 20 72 65 63 74 61 | 6e 67 6c 65 20 69 73 20 |he recta|ngle is |
|00002cf0| 61 63 74 75 61 6c 6c 79 | 20 6b 69 6c 6c 65 64 2c |actually| killed,|
|00002d00| 20 73 68 69 66 74 69 6e | 67 20 72 65 6d 61 69 6e | shiftin|g remain|
|00002d10| 69 6e 67 20 74 65 78 74 | 2e 1f 0a 28 64 65 66 61 |ing text|...(defa|
|00002d20| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 63 6c |lias 'pi|cture-cl|
|00002d30| 65 61 72 2d 72 65 63 74 | 61 6e 67 6c 65 2d 74 6f |ear-rect|angle-to|
|00002d40| 2d 72 65 67 69 73 74 65 | 72 20 23 5b 28 73 74 61 |-registe|r #[(sta|
|00002d50| 72 74 20 65 6e 64 20 72 | 65 67 69 73 74 65 72 20 |rt end r|egister |
|00002d60| 26 6f 70 74 69 6f 6e 61 | 6c 20 6b 69 6c 6c 70 29 |&optiona|l killp)|
|00002d70| 20 22 c0 09 c2 0b 0c 0d | 23 5c 22 87 22 20 5b 73 | "......|#\"." [s|
|00002d80| 65 74 2d 72 65 67 69 73 | 74 65 72 20 72 65 67 69 |et-regis|ter regi|
|00002d90| 73 74 65 72 20 70 69 63 | 74 75 72 65 2d 73 6e 61 |ster pic|ture-sna|
|00002da0| 72 66 2d 72 65 63 74 61 | 6e 67 6c 65 20 73 74 61 |rf-recta|ngle sta|
|00002db0| 72 74 20 65 6e 64 20 6b | 69 6c 6c 70 5d 20 36 20 |rt end k|illp] 6 |
|00002dc0| 28 23 24 20 2e 20 31 31 | 33 33 39 29 20 22 72 5c |(#$ . 11|339) "r\|
|00002dd0| 6e 63 52 65 63 74 61 6e | 67 6c 65 20 74 6f 20 72 |ncRectan|gle to r|
|00002de0| 65 67 69 73 74 65 72 3a | 20 5c 6e 50 22 5d 29 0a |egister:| \nP"]).|
|00002df0| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00002e00| 72 65 2d 73 6e 61 72 66 | 2d 72 65 63 74 61 6e 67 |re-snarf|-rectang|
|00002e10| 6c 65 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 20 |le #[(st|art end |
|00002e20| 26 6f 70 74 69 6f 6e 61 | 6c 20 6b 69 6c 6c 70 29 |&optiona|l killp)|
|00002e30| 20 22 69 c0 19 1a 8a 0b | ab 87 c4 0d 0e 06 5c 22 | "i.....|......\"|
|00002e40| aa 8b c7 0d 0e 06 5c 22 | c8 0d 0e 06 5c 22 88 29 |......\"|....\".)|
|00002e50| c9 5c 6e 21 88 c0 16 5c | 6e 2a 87 22 20 5b 6e 69 |.\n!...\|n*." [ni|
|00002e60| 6c 20 69 6e 64 65 6e 74 | 2d 74 61 62 73 2d 6d 6f |l indent|-tabs-mo|
|00002e70| 64 65 20 63 6f 6c 75 6d | 6e 20 6b 69 6c 6c 70 20 |de colum|n killp |
|00002e80| 64 65 6c 65 74 65 2d 65 | 78 74 72 61 63 74 2d 72 |delete-e|xtract-r|
|00002e90| 65 63 74 61 6e 67 6c 65 | 20 73 74 61 72 74 20 65 |ectangle| start e|
|00002ea0| 6e 64 20 65 78 74 72 61 | 63 74 2d 72 65 63 74 61 |nd extra|ct-recta|
|00002eb0| 6e 67 6c 65 20 63 6c 65 | 61 72 2d 72 65 63 74 61 |ngle cle|ar-recta|
|00002ec0| 6e 67 6c 65 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c |ngle mov|e-to-col|
|00002ed0| 75 6d 6e 2d 66 6f 72 63 | 65 20 7a 6d 61 63 73 2d |umn-forc|e zmacs-|
|00002ee0| 72 65 67 69 6f 6e 2d 73 | 74 61 79 73 5d 20 34 5d |region-s|tays] 4]|
|00002ef0| 29 0a 23 40 33 31 37 20 | 4f 76 65 72 6c 61 79 20 |).#@317 |Overlay |
|00002f00| 72 65 63 74 61 6e 67 6c | 65 20 73 61 76 65 64 20 |rectangl|e saved |
|00002f10| 62 79 20 5c 5b 70 69 63 | 74 75 72 65 2d 63 6c 65 |by \[pic|ture-cle|
|00002f20| 61 72 2d 72 65 63 74 61 | 6e 67 6c 65 5d 0a 54 68 |ar-recta|ngle].Th|
|00002f30| 65 20 72 65 63 74 61 6e | 67 6c 65 20 69 73 20 70 |e rectan|gle is p|
|00002f40| 6f 73 69 74 69 6f 6e 65 | 64 20 77 69 74 68 20 75 |ositione|d with u|
|00002f50| 70 70 65 72 20 6c 65 66 | 74 20 63 6f 72 6e 65 72 |pper lef|t corner|
|00002f60| 20 61 74 20 70 6f 69 6e | 74 2c 20 6f 76 65 72 77 | at poin|t, overw|
|00002f70| 72 69 74 69 6e 67 0a 65 | 78 69 73 74 69 6e 67 20 |riting.e|xisting |
|00002f80| 74 65 78 74 2e 20 20 57 | 69 74 68 20 70 72 65 66 |text.  W|ith pref|
|00002f90| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 74 68 65 |ix argum|ent, the|
|00002fa0| 20 72 65 63 74 61 6e 67 | 6c 65 20 69 73 20 69 6e | rectang|le is in|
|00002fb0| 73 65 72 74 65 64 20 69 | 6e 73 74 65 61 64 2c 0a |serted i|nstead,.|
|00002fc0| 73 68 69 66 74 69 6e 67 | 20 65 78 69 73 74 69 6e |shifting| existin|
|00002fd0| 67 20 74 65 78 74 2e 20 | 20 4c 65 61 76 65 73 20 |g text. | Leaves |
|00002fe0| 6d 61 72 6b 20 61 74 20 | 6f 6e 65 20 63 6f 72 6e |mark at |one corn|
|00002ff0| 65 72 20 6f 66 20 72 65 | 63 74 61 6e 67 6c 65 20 |er of re|ctangle |
|00003000| 61 6e 64 0a 70 6f 69 6e | 74 20 61 74 20 74 68 65 |and.poin|t at the|
|00003010| 20 6f 74 68 65 72 20 28 | 64 69 61 67 6f 6e 61 6c | other (|diagonal|
|00003020| 6c 79 20 6f 70 70 6f 73 | 65 64 29 20 63 6f 72 6e |ly oppos|ed) corn|
|00003030| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|00003040| 70 69 63 74 75 72 65 2d | 79 61 6e 6b 2d 72 65 63 |picture-|yank-rec|
|00003050| 74 61 6e 67 6c 65 20 23 | 5b 28 26 6f 70 74 69 6f |tangle #|[(&optio|
|00003060| 6e 61 6c 20 69 6e 73 65 | 72 74 70 29 20 22 08 3a |nal inse|rtp) ".:|
|00003070| ac 84 c1 c2 21 87 c3 08 | 0c 5c 22 87 22 20 5b 70 |....!...|.\"." [p|
|00003080| 69 63 74 75 72 65 2d 6b | 69 6c 6c 65 64 2d 72 65 |icture-k|illed-re|
|00003090| 63 74 61 6e 67 6c 65 20 | 65 72 72 6f 72 20 22 4e |ctangle |error "N|
|000030a0| 6f 20 72 65 63 74 61 6e | 67 6c 65 20 73 61 76 65 |o rectan|gle save|
|000030b0| 64 2e 22 20 70 69 63 74 | 75 72 65 2d 69 6e 73 65 |d." pict|ure-inse|
|000030c0| 72 74 2d 72 65 63 74 61 | 6e 67 6c 65 20 69 6e 73 |rt-recta|ngle ins|
|000030d0| 65 72 74 70 5d 20 33 20 | 28 23 24 20 2e 20 31 32 |ertp] 3 |(#$ . 12|
|000030e0| 30 32 34 29 20 22 50 22 | 5d 29 0a 23 40 32 36 39 |024) "P"|]).#@269|
|000030f0| 20 49 6e 73 65 72 74 20 | 74 68 65 20 6c 61 73 74 | Insert |the last|
|00003100| 20 6b 69 6c 6c 65 64 20 | 72 65 63 74 61 6e 67 6c | killed |rectangl|
|00003110| 65 20 61 74 20 74 68 65 | 20 70 6f 73 69 74 69 6f |e at the| positio|
|00003120| 6e 20 63 6c 69 63 6b 65 | 64 20 6f 6e 2e 0a 41 6c |n clicke|d on..Al|
|00003130| 73 6f 20 6d 6f 76 65 20 | 70 6f 69 6e 74 20 74 6f |so move |point to|
|00003140| 20 6f 6e 65 20 65 6e 64 | 20 6f 66 20 74 68 65 20 | one end| of the |
|00003150| 74 65 78 74 20 74 68 75 | 73 20 69 6e 73 65 72 74 |text thu|s insert|
|00003160| 65 64 20 28 6e 6f 72 6d | 61 6c 6c 79 20 74 68 65 |ed (norm|ally the|
|00003170| 20 65 6e 64 29 2e 0a 50 | 72 65 66 69 78 20 61 72 | end)..P|refix ar|
|00003180| 67 75 6d 65 6e 74 73 20 | 61 72 65 20 69 6e 74 65 |guments |are inte|
|00003190| 72 70 72 65 74 65 64 20 | 61 73 20 77 69 74 68 20 |rpreted |as with |
|000031a0| 5c 5b 79 61 6e 6b 5d 2e | 0a 49 66 20 60 6d 6f 75 |\[yank].|.If `mou|
|000031b0| 73 65 2d 79 61 6e 6b 2d | 61 74 2d 70 6f 69 6e 74 |se-yank-|at-point|
|000031c0| 27 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2c 20 69 6e |' is non|-nil, in|
|000031d0| 73 65 72 74 20 61 74 20 | 70 6f 69 6e 74 0a 72 65 |sert at |point.re|
|000031e0| 67 61 72 64 6c 65 73 73 | 20 6f 66 20 77 68 65 72 |gardless| of wher|
|000031f0| 65 20 79 6f 75 20 63 6c | 69 63 6b 2e 1f 0a 28 64 |e you cl|ick...(d|
|00003200| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|00003210| 2d 79 61 6e 6b 2d 61 74 | 2d 63 6c 69 63 6b 20 23 |-yank-at|-click #|
|00003220| 5b 28 63 6c 69 63 6b 20 | 61 72 67 29 20 22 08 ac |[(click |arg) "..|
|00003230| 84 c1 5c 6e 21 88 c3 0c | 21 87 22 20 5b 6d 6f 75 |..\n!...|!." [mou|
|00003240| 73 65 2d 79 61 6e 6b 2d | 61 74 2d 70 6f 69 6e 74 |se-yank-|at-point|
|00003250| 20 6d 6f 75 73 65 2d 73 | 65 74 2d 70 6f 69 6e 74 | mouse-s|et-point|
|00003260| 20 63 6c 69 63 6b 20 70 | 69 63 74 75 72 65 2d 79 | click p|icture-y|
|00003270| 61 6e 6b 2d 72 65 63 74 | 61 6e 67 6c 65 20 61 72 |ank-rect|angle ar|
|00003280| 67 5d 20 32 20 28 23 24 | 20 2e 20 31 32 35 32 39 |g] 2 (#$| . 12529|
|00003290| 29 20 22 65 5c 6e 50 22 | 5d 29 0a 23 40 33 30 30 |) "e\nP"|]).#@300|
|000032a0| 20 4f 76 65 72 6c 61 79 | 20 72 65 63 74 61 6e 67 | Overlay| rectang|
|000032b0| 6c 65 20 73 61 76 65 64 | 20 69 6e 20 52 45 47 49 |le saved| in REGI|
|000032c0| 53 54 45 52 2e 0a 54 68 | 65 20 72 65 63 74 61 6e |STER..Th|e rectan|
|000032d0| 67 6c 65 20 69 73 20 70 | 6f 73 69 74 69 6f 6e 65 |gle is p|ositione|
|000032e0| 64 20 77 69 74 68 20 75 | 70 70 65 72 20 6c 65 66 |d with u|pper lef|
|000032f0| 74 20 63 6f 72 6e 65 72 | 20 61 74 20 70 6f 69 6e |t corner| at poin|
|00003300| 74 2c 20 6f 76 65 72 77 | 72 69 74 69 6e 67 0a 65 |t, overw|riting.e|
|00003310| 78 69 73 74 69 6e 67 20 | 74 65 78 74 2e 20 20 57 |xisting |text.  W|
|00003320| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|00003330| 65 6e 74 2c 20 74 68 65 | 20 72 65 63 74 61 6e 67 |ent, the| rectang|
|00003340| 6c 65 20 69 73 0a 69 6e | 73 65 72 74 65 64 20 69 |le is.in|serted i|
|00003350| 6e 73 74 65 61 64 2c 20 | 73 68 69 66 74 69 6e 67 |nstead, |shifting|
|00003360| 20 65 78 69 73 74 69 6e | 67 20 74 65 78 74 2e 20 | existin|g text. |
|00003370| 20 4c 65 61 76 65 73 20 | 6d 61 72 6b 20 61 74 20 | Leaves |mark at |
|00003380| 6f 6e 65 20 63 6f 72 6e | 65 72 0a 6f 66 20 72 65 |one corn|er.of re|
|00003390| 63 74 61 6e 67 6c 65 20 | 61 6e 64 20 70 6f 69 6e |ctangle |and poin|
|000033a0| 74 20 61 74 20 74 68 65 | 20 6f 74 68 65 72 20 28 |t at the| other (|
|000033b0| 64 69 61 67 6f 6e 61 6c | 6c 79 20 6f 70 70 6f 73 |diagonal|ly oppos|
|000033c0| 65 64 29 20 63 6f 72 6e | 65 72 2e 1f 0a 28 64 65 |ed) corn|er...(de|
|000033d0| 66 61 6c 69 61 73 20 27 | 70 69 63 74 75 72 65 2d |falias '|picture-|
|000033e0| 79 61 6e 6b 2d 72 65 63 | 74 61 6e 67 6c 65 2d 66 |yank-rec|tangle-f|
|000033f0| 72 6f 6d 2d 72 65 67 69 | 73 74 65 72 20 23 5b 28 |rom-regi|ster #[(|
|00003400| 72 65 67 69 73 74 65 72 | 20 26 6f 70 74 69 6f 6e |register| &option|
|00003410| 61 6c 20 69 6e 73 65 72 | 74 70 29 20 22 c0 09 21 |al inser|tp) "..!|
|00003420| 89 1a 3a ac 86 c3 c4 09 | 5c 22 aa 85 c5 5c 6e 0e |..:.....|\"...\n.|
|00003430| 06 5c 22 29 87 22 20 5b | 67 65 74 2d 72 65 67 69 |.\")." [|get-regi|
|00003440| 73 74 65 72 20 72 65 67 | 69 73 74 65 72 20 72 65 |ster reg|ister re|
|00003450| 63 74 61 6e 67 6c 65 20 | 65 72 72 6f 72 20 22 52 |ctangle |error "R|
|00003460| 65 67 69 73 74 65 72 20 | 25 63 20 64 6f 65 73 20 |egister |%c does |
|00003470| 6e 6f 74 20 63 6f 6e 74 | 61 69 6e 20 61 20 72 65 |not cont|ain a re|
|00003480| 63 74 61 6e 67 6c 65 2e | 22 20 70 69 63 74 75 72 |ctangle.|" pictur|
|00003490| 65 2d 69 6e 73 65 72 74 | 2d 72 65 63 74 61 6e 67 |e-insert|-rectang|
|000034a0| 6c 65 20 69 6e 73 65 72 | 74 70 5d 20 34 20 28 23 |le inser|tp] 4 (#|
|000034b0| 24 20 2e 20 31 32 39 36 | 31 29 20 22 63 52 65 63 |$ . 1296|1) "cRec|
|000034c0| 74 61 6e 67 6c 65 20 66 | 72 6f 6d 20 72 65 67 69 |tangle f|rom regi|
|000034d0| 73 74 65 72 3a 20 5c 6e | 50 22 5d 29 0a 23 40 31 |ster: \n|P"]).#@1|
|000034e0| 36 38 20 4f 76 65 72 6c | 61 79 20 52 45 43 54 41 |68 Overl|ay RECTA|
|000034f0| 4e 47 4c 45 20 77 69 74 | 68 20 75 70 70 65 72 20 |NGLE wit|h upper |
|00003500| 6c 65 66 74 20 63 6f 72 | 6e 65 72 20 61 74 20 70 |left cor|ner at p|
|00003510| 6f 69 6e 74 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 61 |oint..Op|tional a|
|00003520| 72 67 75 6d 65 6e 74 20 | 49 4e 53 45 52 54 50 2c |rgument |INSERTP,|
|00003530| 20 69 66 20 6e 6f 6e 2d | 6e 69 6c 20 63 61 75 73 | if non-|nil caus|
|00003540| 65 73 20 52 45 43 54 41 | 4e 47 4c 45 20 74 6f 20 |es RECTA|NGLE to |
|00003550| 62 65 20 69 6e 73 65 72 | 74 65 64 2e 0a 4c 65 61 |be inser|ted..Lea|
|00003560| 76 65 73 20 74 68 65 20 | 72 65 67 69 6f 6e 20 73 |ves the |region s|
|00003570| 75 72 72 6f 75 6e 64 69 | 6e 67 20 74 68 65 20 72 |urroundi|ng the r|
|00003580| 65 63 74 61 6e 67 6c 65 | 2e 1f 0a 28 64 65 66 61 |ectangle|...(defa|
|00003590| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 69 6e |lias 'pi|cture-in|
|000035a0| 73 65 72 74 2d 72 65 63 | 74 61 6e 67 6c 65 20 23 |sert-rec|tangle #|
|000035b0| 5b 28 72 65 63 74 61 6e | 67 6c 65 20 26 6f 70 74 |[(rectan|gle &opt|
|000035c0| 69 6f 6e 61 6c 20 69 6e | 73 65 72 74 70 29 20 22 |ional in|sertp) "|
|000035d0| c0 19 5c 6e ac 93 8a c3 | 60 c4 0d 40 47 21 88 c6 |..\n....|`..@G!..|
|000035e0| 0d 47 53 21 88 60 5c 22 | 88 29 c7 20 88 c8 0d 21 |.GS!.`\"|.). ...!|
|000035f0| 29 87 22 20 5b 6e 69 6c | 20 69 6e 64 65 6e 74 2d |)." [nil| indent-|
|00003600| 74 61 62 73 2d 6d 6f 64 | 65 20 69 6e 73 65 72 74 |tabs-mod|e insert|
|00003610| 70 20 64 65 6c 65 74 65 | 2d 72 65 63 74 61 6e 67 |p delete|-rectang|
|00003620| 6c 65 20 70 69 63 74 75 | 72 65 2d 66 6f 72 77 61 |le pictu|re-forwa|
|00003630| 72 64 2d 63 6f 6c 75 6d | 6e 20 72 65 63 74 61 6e |rd-colum|n rectan|
|00003640| 67 6c 65 20 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |gle pict|ure-move|
|00003650| 2d 64 6f 77 6e 20 70 75 | 73 68 2d 6d 61 72 6b 20 |-down pu|sh-mark |
|00003660| 69 6e 73 65 72 74 2d 72 | 65 63 74 61 6e 67 6c 65 |insert-r|ectangle|
|00003670| 5d 20 34 20 28 23 24 20 | 2e 20 31 33 35 33 39 29 |] 4 (#$ |. 13539)|
|00003680| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00003690| 11 c1 5c 6e 42 12 c0 87 | 22 20 5b 6e 69 6c 20 70 |..\nB...|" [nil p|
|000036a0| 69 63 74 75 72 65 2d 6d | 6f 64 65 2d 6d 61 70 20 |icture-m|ode-map |
|000036b0| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|000036c0| 74 5d 20 32 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t] 2).(d|efalias |
|000036d0| 27 70 69 63 74 75 72 65 | 2d 73 75 62 73 74 69 74 |'picture|-substit|
|000036e0| 75 74 65 20 23 5b 28 6f | 6c 64 66 75 6e 20 6e 65 |ute #[(o|ldfun ne|
|000036f0| 77 66 75 6e 29 20 22 c0 | 09 5c 6e 0b 0c 24 87 22 |wfun) ".|.\n..$."|
|00003700| 20 5b 73 75 62 73 74 69 | 74 75 74 65 2d 6b 65 79 | [substi|tute-key|
|00003710| 2d 64 65 66 69 6e 69 74 | 69 6f 6e 20 6f 6c 64 66 |-definit|ion oldf|
|00003720| 75 6e 20 6e 65 77 66 75 | 6e 20 70 69 63 74 75 72 |un newfu|n pictur|
|00003730| 65 2d 6d 6f 64 65 2d 6d | 61 70 20 67 6c 6f 62 61 |e-mode-m|ap globa|
|00003740| 6c 2d 6d 61 70 5d 20 35 | 5d 29 0a 28 62 79 74 65 |l-map] 5|]).(byte|
|00003750| 2d 63 6f 64 65 20 22 08 | 84 d0 00 c1 c0 21 10 c2 |-code ".|.....!..|
|00003760| c3 c4 5c 22 88 c2 c5 c6 | 5c 22 88 c2 c7 c8 5c 22 |..\"....|\"....\"|
|00003770| 88 c2 c9 ca 5c 22 88 c2 | cb cc 5c 22 88 c2 cd cc |....\"..|..\"....|
|00003780| 5c 22 88 c2 ce cf 5c 22 | 88 c2 d0 d1 5c 22 88 c2 |\"....\"|....\"..|
|00003790| d2 d3 5c 22 88 c2 d4 d5 | 5c 22 88 c2 d6 d7 5c 22 |..\"....|\"....\"|
|000037a0| 88 c2 d8 d9 5c 22 88 c2 | da db 5c 22 88 c2 dc dd |....\"..|..\"....|
|000037b0| 5c 22 88 de 08 df c9 23 | 88 de 08 e0 e1 23 88 de |\".....#|.....#..|
|000037c0| 08 e2 e3 23 88 de 08 e0 | e4 23 88 de 08 e5 e6 23 |...#....|.#.....#|
|000037d0| 88 de 08 e7 e8 23 88 de | 08 e9 ea 23 88 de 08 eb |.....#..|...#....|
|000037e0| ec 23 88 de 08 ed ee 23 | 88 de 08 ef f0 23 88 de |.#.....#|.....#..|
|000037f0| 08 f1 f2 23 88 de 08 f3 | f4 23 88 de 08 f5 f6 23 |...#....|.#.....#|
|00003800| 88 de 08 f7 f8 23 88 de | 08 f9 fa 23 88 de 08 fb |.....#..|...#....|
|00003810| fc 23 88 de 08 fd fe 23 | 88 de 08 ff 81 40 00 23 |.#.....#|.....@.#|
|00003820| 88 de 08 81 41 00 81 42 | 00 23 88 de 08 81 43 00 |....A..B|.#....C.|
|00003830| 81 44 00 23 88 c1 87 22 | 20 5b 70 69 63 74 75 72 |.D.#..."| [pictur|
|00003840| 65 2d 6d 6f 64 65 2d 6d | 61 70 20 6d 61 6b 65 2d |e-mode-m|ap make-|
|00003850| 6b 65 79 6d 61 70 20 70 | 69 63 74 75 72 65 2d 73 |keymap p|icture-s|
|00003860| 75 62 73 74 69 74 75 74 | 65 20 73 65 6c 66 2d 69 |ubstitut|e self-i|
|00003870| 6e 73 65 72 74 2d 63 6f | 6d 6d 61 6e 64 20 70 69 |nsert-co|mmand pi|
|00003880| 63 74 75 72 65 2d 73 65 | 6c 66 2d 69 6e 73 65 72 |cture-se|lf-inser|
|00003890| 74 20 66 6f 72 77 61 72 | 64 2d 63 68 61 72 20 70 |t forwar|d-char p|
|000038a0| 69 63 74 75 72 65 2d 66 | 6f 72 77 61 72 64 2d 63 |icture-f|orward-c|
|000038b0| 6f 6c 75 6d 6e 20 62 61 | 63 6b 77 61 72 64 2d 63 |olumn ba|ckward-c|
|000038c0| 68 61 72 20 70 69 63 74 | 75 72 65 2d 62 61 63 6b |har pict|ure-back|
|000038d0| 77 61 72 64 2d 63 6f 6c | 75 6d 6e 20 64 65 6c 65 |ward-col|umn dele|
|000038e0| 74 65 2d 63 68 61 72 20 | 70 69 63 74 75 72 65 2d |te-char |picture-|
|000038f0| 63 6c 65 61 72 2d 63 6f | 6c 75 6d 6e 20 62 61 63 |clear-co|lumn bac|
|00003900| 6b 77 61 72 64 2d 64 65 | 6c 65 74 65 2d 63 68 61 |kward-de|lete-cha|
|00003910| 72 2d 75 6e 74 61 62 69 | 66 79 20 70 69 63 74 75 |r-untabi|fy pictu|
|00003920| 72 65 2d 62 61 63 6b 77 | 61 72 64 2d 63 6c 65 61 |re-backw|ard-clea|
|00003930| 72 2d 63 6f 6c 75 6d 6e | 20 64 65 6c 65 74 65 2d |r-column| delete-|
|00003940| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 6b 69 |backward|-char ki|
|00003950| 6c 6c 2d 6c 69 6e 65 20 | 70 69 63 74 75 72 65 2d |ll-line |picture-|
|00003960| 63 6c 65 61 72 2d 6c 69 | 6e 65 20 6f 70 65 6e 2d |clear-li|ne open-|
|00003970| 6c 69 6e 65 20 70 69 63 | 74 75 72 65 2d 6f 70 65 |line pic|ture-ope|
|00003980| 6e 2d 6c 69 6e 65 20 6e | 65 77 6c 69 6e 65 20 70 |n-line n|ewline p|
|00003990| 69 63 74 75 72 65 2d 6e | 65 77 6c 69 6e 65 20 6e |icture-n|ewline n|
|000039a0| 65 77 6c 69 6e 65 2d 61 | 6e 64 2d 69 6e 64 65 6e |ewline-a|nd-inden|
|000039b0| 74 20 70 69 63 74 75 72 | 65 2d 64 75 70 6c 69 63 |t pictur|e-duplic|
|000039c0| 61 74 65 2d 6c 69 6e 65 | 20 6e 65 78 74 2d 6c 69 |ate-line| next-li|
|000039d0| 6e 65 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 2d |ne pictu|re-move-|
|000039e0| 64 6f 77 6e 20 70 72 65 | 76 69 6f 75 73 2d 6c 69 |down pre|vious-li|
|000039f0| 6e 65 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 2d |ne pictu|re-move-|
|00003a00| 75 70 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |up begin|ning-of-|
|00003a10| 6c 69 6e 65 20 70 69 63 | 74 75 72 65 2d 62 65 67 |line pic|ture-beg|
|00003a20| 69 6e 6e 69 6e 67 2d 6f | 66 2d 6c 69 6e 65 20 65 |inning-o|f-line e|
|00003a30| 6e 64 2d 6f 66 2d 6c 69 | 6e 65 20 70 69 63 74 75 |nd-of-li|ne pictu|
|00003a40| 72 65 2d 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 20 64 |re-end-o|f-line d|
|00003a50| 65 66 69 6e 65 2d 6b 65 | 79 20 22 03 04 22 20 22 |efine-ke|y ".." "|
|00003a60| 1b 09 22 20 70 69 63 74 | 75 72 65 2d 74 6f 67 67 |.." pict|ure-togg|
|00003a70| 6c 65 2d 74 61 62 2d 73 | 74 61 74 65 20 22 09 22 |le-tab-s|tate "."|
|00003a80| 20 70 69 63 74 75 72 65 | 2d 74 61 62 20 70 69 63 | picture|-tab pic|
|00003a90| 74 75 72 65 2d 74 61 62 | 2d 73 65 61 72 63 68 20 |ture-tab|-search |
|00003aa0| 22 03 09 22 20 70 69 63 | 74 75 72 65 2d 73 65 74 |".." pic|ture-set|
|00003ab0| 2d 74 61 62 2d 73 74 6f | 70 73 20 22 03 0b 22 20 |-tab-sto|ps ".." |
|00003ac0| 70 69 63 74 75 72 65 2d | 63 6c 65 61 72 2d 72 65 |picture-|clear-re|
|00003ad0| 63 74 61 6e 67 6c 65 20 | 22 03 17 22 20 70 69 63 |ctangle |".." pic|
|00003ae0| 74 75 72 65 2d 63 6c 65 | 61 72 2d 72 65 63 74 61 |ture-cle|ar-recta|
|00003af0| 6e 67 6c 65 2d 74 6f 2d | 72 65 67 69 73 74 65 72 |ngle-to-|register|
|00003b00| 20 22 03 19 22 20 70 69 | 63 74 75 72 65 2d 79 61 | ".." pi|cture-ya|
|00003b10| 6e 6b 2d 72 65 63 74 61 | 6e 67 6c 65 20 22 03 18 |nk-recta|ngle "..|
|00003b20| 22 20 70 69 63 74 75 72 | 65 2d 79 61 6e 6b 2d 72 |" pictur|e-yank-r|
|00003b30| 65 63 74 61 6e 67 6c 65 | 2d 66 72 6f 6d 2d 72 65 |ectangle|-from-re|
|00003b40| 67 69 73 74 65 72 20 22 | 03 03 22 20 70 69 63 74 |gister "|.." pict|
|00003b50| 75 72 65 2d 6d 6f 64 65 | 2d 65 78 69 74 20 22 03 |ure-mode|-exit ".|
|00003b60| 06 22 20 70 69 63 74 75 | 72 65 2d 6d 6f 74 69 6f |." pictu|re-motio|
|00003b70| 6e 20 22 03 02 22 20 70 | 69 63 74 75 72 65 2d 6d |n ".." p|icture-m|
|00003b80| 6f 74 69 6f 6e 2d 72 65 | 76 65 72 73 65 20 22 03 |otion-re|verse ".|
|00003b90| 3c 22 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |<" pictu|re-movem|
|00003ba0| 65 6e 74 2d 6c 65 66 74 | 20 22 03 3e 22 20 70 69 |ent-left| ".>" pi|
|00003bb0| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 72 |cture-mo|vement-r|
|00003bc0| 69 67 68 74 20 22 03 5e | 22 20 70 69 63 74 75 72 |ight ".^|" pictur|
|00003bd0| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 75 70 20 22 03 |e-moveme|nt-up ".|
|00003be0| 2e 22 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |." pictu|re-movem|
|00003bf0| 65 6e 74 2d 64 6f 77 6e | 20 22 03 60 22 20 70 69 |ent-down| ".`" pi|
|00003c00| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 6e |cture-mo|vement-n|
|00003c10| 77 20 22 03 27 22 20 70 | 69 63 74 75 72 65 2d 6d |w ".'" p|icture-m|
|00003c20| 6f 76 65 6d 65 6e 74 2d | 6e 65 20 22 03 2f 22 20 |ovement-|ne "./" |
|00003c30| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 6d 65 6e 74 |picture-|movement|
|00003c40| 2d 73 77 20 22 03 5c 5c | 22 20 70 69 63 74 75 72 |-sw ".\\|" pictur|
|00003c50| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 73 65 5d 20 34 |e-moveme|nt-se] 4|
|00003c60| 29 0a 23 40 31 31 35 20 | 49 66 20 6e 6f 6e 2d 6e |).#@115 |If non-n|
|00003c70| 69 6c 2c 20 69 74 73 20 | 76 61 6c 75 65 20 69 73 |il, its |value is|
|00003c80| 20 63 61 6c 6c 65 64 20 | 6f 6e 20 65 6e 74 72 79 | called |on entry|
|00003c90| 20 74 6f 20 50 69 63 74 | 75 72 65 20 6d 6f 64 65 | to Pict|ure mode|
|00003ca0| 2e 0a 50 69 63 74 75 72 | 65 20 6d 6f 64 65 20 69 |..Pictur|e mode i|
|00003cb0| 73 20 69 6e 76 6f 6b 65 | 64 20 62 79 20 74 68 65 |s invoke|d by the|
|00003cc0| 20 63 6f 6d 6d 61 6e 64 | 20 5c 5b 70 69 63 74 75 | command| \[pictu|
|00003cd0| 72 65 2d 6d 6f 64 65 5d | 2e 1f 0a 28 64 65 66 76 |re-mode]|...(defv|
|00003ce0| 61 72 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 2d |ar pictu|re-mode-|
|00003cf0| 68 6f 6f 6b 20 6e 69 6c | 20 28 23 24 20 2e 20 31 |hook nil| (#$ . 1|
|00003d00| 35 34 36 34 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 |5464)).(|byte-cod|
|00003d10| 65 20 22 c0 09 42 11 c2 | 09 42 11 c3 09 42 11 c4 |e "..B..|.B...B..|
|00003d20| 09 42 11 c0 87 22 20 5b | 70 69 63 74 75 72 65 2d |.B..." [|picture-|
|00003d30| 6d 6f 64 65 2d 6f 6c 64 | 2d 6c 6f 63 61 6c 2d 6d |mode-old|-local-m|
|00003d40| 61 70 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |ap curre|nt-load-|
|00003d50| 6c 69 73 74 20 70 69 63 | 74 75 72 65 2d 6d 6f 64 |list pic|ture-mod|
|00003d60| 65 2d 6f 6c 64 2d 6d 6f | 64 65 2d 6e 61 6d 65 20 |e-old-mo|de-name |
|00003d70| 70 69 63 74 75 72 65 2d | 6d 6f 64 65 2d 6f 6c 64 |picture-|mode-old|
|00003d80| 2d 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 70 69 63 74 |-major-m|ode pict|
|00003d90| 75 72 65 2d 6d 6f 64 65 | 2d 6f 6c 64 2d 74 72 75 |ure-mode|-old-tru|
|00003da0| 6e 63 61 74 65 2d 6c 69 | 6e 65 73 5d 20 32 29 0a |ncate-li|nes] 2).|
|00003db0| 23 40 33 30 36 38 20 53 | 77 69 74 63 68 20 74 6f |#@3068 S|witch to|
|00003dc0| 20 50 69 63 74 75 72 65 | 20 6d 6f 64 65 2c 20 69 | Picture| mode, i|
|00003dd0| 6e 20 77 68 69 63 68 20 | 61 20 71 75 61 72 74 65 |n which |a quarte|
|00003de0| 72 2d 70 6c 61 6e 65 20 | 73 63 72 65 65 6e 20 6d |r-plane |screen m|
|00003df0| 6f 64 65 6c 20 69 73 20 | 75 73 65 64 2e 0a 50 72 |odel is |used..Pr|
|00003e00| 69 6e 74 69 6e 67 20 63 | 68 61 72 61 63 74 65 72 |inting c|haracter|
|00003e10| 73 20 72 65 70 6c 61 63 | 65 20 69 6e 73 74 65 61 |s replac|e instea|
|00003e20| 64 20 6f 66 20 69 6e 73 | 65 72 74 69 6e 67 20 74 |d of ins|erting t|
|00003e30| 68 65 6d 73 65 6c 76 65 | 73 20 77 69 74 68 20 6d |hemselve|s with m|
|00003e40| 6f 74 69 6f 6e 0a 61 66 | 74 65 72 77 61 72 64 73 |otion.af|terwards|
|00003e50| 20 73 65 74 74 61 62 6c | 65 20 62 79 20 74 68 65 | settabl|e by the|
|00003e60| 73 65 20 63 6f 6d 6d 61 | 6e 64 73 3a 0a 20 20 43 |se comma|nds:.  C|
|00003e70| 2d 63 20 3c 09 20 20 4d | 6f 76 65 20 6c 65 66 74 |-c <.  M|ove left|
|00003e80| 20 61 66 74 65 72 20 69 | 6e 73 65 72 74 69 6f 6e | after i|nsertion|
|00003e90| 2e 0a 20 20 43 2d 63 20 | 3e 09 20 20 4d 6f 76 65 |..  C-c |>.  Move|
|00003ea0| 20 72 69 67 68 74 20 61 | 66 74 65 72 20 69 6e 73 | right a|fter ins|
|00003eb0| 65 72 74 69 6f 6e 2e 0a | 20 20 43 2d 63 20 5e 09 |ertion..|  C-c ^.|
|00003ec0| 20 20 4d 6f 76 65 20 75 | 70 20 61 66 74 65 72 20 |  Move u|p after |
|00003ed0| 69 6e 73 65 72 74 69 6f | 6e 2e 0a 20 20 43 2d 63 |insertio|n..  C-c|
|00003ee0| 20 2e 09 20 20 4d 6f 76 | 65 20 64 6f 77 6e 20 61 | ..  Mov|e down a|
|00003ef0| 66 74 65 72 20 69 6e 73 | 65 72 74 69 6f 6e 2e 0a |fter ins|ertion..|
|00003f00| 20 20 43 2d 63 20 60 09 | 20 20 4d 6f 76 65 20 6e |  C-c `.|  Move n|
|00003f10| 6f 72 74 68 77 65 73 74 | 20 28 6e 77 29 20 61 66 |orthwest| (nw) af|
|00003f20| 74 65 72 20 69 6e 73 65 | 72 74 69 6f 6e 2e 0a 20 |ter inse|rtion.. |
|00003f30| 20 43 2d 63 20 27 09 20 | 20 4d 6f 76 65 20 6e 6f | C-c '. | Move no|
|00003f40| 72 74 68 65 61 73 74 20 | 28 6e 65 29 20 61 66 74 |rtheast |(ne) aft|
|00003f50| 65 72 20 69 6e 73 65 72 | 74 69 6f 6e 2e 0a 20 20 |er inser|tion..  |
|00003f60| 43 2d 63 20 2f 09 20 20 | 4d 6f 76 65 20 73 6f 75 |C-c /.  |Move sou|
|00003f70| 74 68 77 65 73 74 20 28 | 73 77 29 20 61 66 74 65 |thwest (|sw) afte|
|00003f80| 72 20 69 6e 73 65 72 74 | 69 6f 6e 2e 0a 20 20 43 |r insert|ion..  C|
|00003f90| 2d 63 20 5c 20 20 20 4d | 6f 76 65 20 73 6f 75 74 |-c \   M|ove sout|
|00003fa0| 68 65 61 73 74 20 28 73 | 65 29 20 61 66 74 65 72 |heast (s|e) after|
|00003fb0| 20 69 6e 73 65 72 74 69 | 6f 6e 2e 0a 54 68 65 20 | inserti|on..The |
|00003fc0| 63 75 72 72 65 6e 74 20 | 64 69 72 65 63 74 69 6f |current |directio|
|00003fd0| 6e 20 69 73 20 64 69 73 | 70 6c 61 79 65 64 20 69 |n is dis|played i|
|00003fe0| 6e 20 74 68 65 20 6d 6f | 64 65 6c 69 6e 65 2e 20 |n the mo|deline. |
|00003ff0| 20 54 68 65 20 69 6e 69 | 74 69 61 6c 0a 64 69 72 | The ini|tial.dir|
|00004000| 65 63 74 69 6f 6e 20 69 | 73 20 72 69 67 68 74 2e |ection i|s right.|
|00004010| 20 20 57 68 69 74 65 73 | 70 61 63 65 20 69 73 20 |  Whites|pace is |
|00004020| 69 6e 73 65 72 74 65 64 | 20 61 6e 64 20 74 61 62 |inserted| and tab|
|00004030| 73 20 61 72 65 20 63 68 | 61 6e 67 65 64 20 74 6f |s are ch|anged to|
|00004040| 0a 73 70 61 63 65 73 20 | 77 68 65 6e 20 72 65 71 |.spaces |when req|
|00004050| 75 69 72 65 64 20 62 79 | 20 6d 6f 76 65 6d 65 6e |uired by| movemen|
|00004060| 74 2e 20 20 59 6f 75 20 | 63 61 6e 20 6d 6f 76 65 |t.  You |can move|
|00004070| 20 61 72 6f 75 6e 64 20 | 69 6e 20 74 68 65 20 62 | around |in the b|
|00004080| 75 66 66 65 72 0a 77 69 | 74 68 20 74 68 65 73 65 |uffer.wi|th these|
|00004090| 20 63 6f 6d 6d 61 6e 64 | 73 3a 0a 20 20 5c 5b 70 | command|s:.  \[p|
|000040a0| 69 63 74 75 72 65 2d 6d | 6f 76 65 2d 64 6f 77 6e |icture-m|ove-down|
|000040b0| 5d 09 20 20 4d 6f 76 65 | 20 76 65 72 74 69 63 61 |].  Move| vertica|
|000040c0| 6c 6c 79 20 74 6f 20 53 | 41 4d 45 20 63 6f 6c 75 |lly to S|AME colu|
|000040d0| 6d 6e 20 69 6e 20 70 72 | 65 76 69 6f 75 73 20 6c |mn in pr|evious l|
|000040e0| 69 6e 65 2e 0a 20 20 5c | 5b 70 69 63 74 75 72 65 |ine..  \|[picture|
|000040f0| 2d 6d 6f 76 65 2d 75 70 | 5d 09 20 20 4d 6f 76 65 |-move-up|].  Move|
|00004100| 20 76 65 72 74 69 63 61 | 6c 6c 79 20 74 6f 20 53 | vertica|lly to S|
|00004110| 41 4d 45 20 63 6f 6c 75 | 6d 6e 20 69 6e 20 6e 65 |AME colu|mn in ne|
|00004120| 78 74 20 6c 69 6e 65 2e | 0a 20 20 5c 5b 70 69 63 |xt line.|.  \[pic|
|00004130| 74 75 72 65 2d 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |ture-end|-of-line|
|00004140| 5d 09 20 20 4d 6f 76 65 | 20 74 6f 20 63 6f 6c 75 |].  Move| to colu|
|00004150| 6d 6e 20 66 6f 6c 6c 6f | 77 69 6e 67 20 6c 61 73 |mn follo|wing las|
|00004160| 74 20 6e 6f 6e 2d 77 68 | 69 74 65 73 70 61 63 65 |t non-wh|itespace|
|00004170| 20 63 68 61 72 61 63 74 | 65 72 2e 0a 20 20 5c 5b | charact|er..  \[|
|00004180| 70 69 63 74 75 72 65 2d | 66 6f 72 77 61 72 64 2d |picture-|forward-|
|00004190| 63 6f 6c 75 6d 6e 5d 09 | 20 20 4d 6f 76 65 20 72 |column].|  Move r|
|000041a0| 69 67 68 74 20 69 6e 73 | 65 72 74 69 6e 67 20 73 |ight ins|erting s|
|000041b0| 70 61 63 65 73 20 69 66 | 20 72 65 71 75 69 72 65 |paces if| require|
|000041c0| 64 2e 0a 20 20 5c 5b 70 | 69 63 74 75 72 65 2d 62 |d..  \[p|icture-b|
|000041d0| 61 63 6b 77 61 72 64 2d | 63 6f 6c 75 6d 6e 5d 09 |ackward-|column].|
|000041e0| 20 20 4d 6f 76 65 20 6c | 65 66 74 20 63 68 61 6e |  Move l|eft chan|
|000041f0| 67 69 6e 67 20 74 61 62 | 73 20 74 6f 20 73 70 61 |ging tab|s to spa|
|00004200| 63 65 73 20 69 66 20 72 | 65 71 75 69 72 65 64 2e |ces if r|equired.|
|00004210| 0a 20 20 43 2d 63 20 43 | 2d 66 20 4d 6f 76 65 20 |.  C-c C|-f Move |
|00004220| 69 6e 20 64 69 72 65 63 | 74 69 6f 6e 20 6f 66 20 |in direc|tion of |
|00004230| 63 75 72 72 65 6e 74 20 | 70 69 63 74 75 72 65 20 |current |picture |
|00004240| 6d 6f 74 69 6f 6e 2e 0a | 20 20 43 2d 63 20 43 2d |motion..|  C-c C-|
|00004250| 62 20 4d 6f 76 65 20 69 | 6e 20 6f 70 70 6f 73 69 |b Move i|n opposi|
|00004260| 74 65 20 64 69 72 65 63 | 74 69 6f 6e 20 6f 66 20 |te direc|tion of |
|00004270| 63 75 72 72 65 6e 74 20 | 70 69 63 74 75 72 65 20 |current |picture |
|00004280| 6d 6f 74 69 6f 6e 2e 0a | 20 20 52 65 74 75 72 6e |motion..|  Return|
|00004290| 20 20 4d 6f 76 65 20 74 | 6f 20 62 65 67 69 6e 6e |  Move t|o beginn|
|000042a0| 69 6e 67 20 6f 66 20 6e | 65 78 74 20 6c 69 6e 65 |ing of n|ext line|
|000042b0| 2e 0a 59 6f 75 20 63 61 | 6e 20 65 64 69 74 20 74 |..You ca|n edit t|
|000042c0| 61 62 75 6c 61 72 20 74 | 65 78 74 20 77 69 74 68 |abular t|ext with|
|000042d0| 20 74 68 65 73 65 20 63 | 6f 6d 6d 61 6e 64 73 3a | these c|ommands:|
|000042e0| 0a 20 20 4d 2d 54 61 62 | 09 20 20 4d 6f 76 65 20 |.  M-Tab|.  Move |
|000042f0| 74 6f 20 63 6f 6c 75 6d | 6e 20 62 65 6e 65 61 74 |to colum|n beneat|
|00004300| 68 20 28 6f 72 20 61 74 | 29 20 6e 65 78 74 20 69 |h (or at|) next i|
|00004310| 6e 74 65 72 65 73 74 69 | 6e 67 20 63 68 61 72 61 |nteresti|ng chara|
|00004320| 63 74 65 72 2e 0a 09 20 | 20 20 20 60 49 6e 64 65 |cter... |   `Inde|
|00004330| 6e 74 73 27 20 72 65 6c | 61 74 69 76 65 20 74 6f |nts' rel|ative to|
|00004340| 20 61 20 70 72 65 76 69 | 6f 75 73 20 6c 69 6e 65 | a previ|ous line|
|00004350| 2e 0a 20 20 54 61 62 09 | 20 20 4d 6f 76 65 20 74 |..  Tab.|  Move t|
|00004360| 6f 20 6e 65 78 74 20 73 | 74 6f 70 20 69 6e 20 74 |o next s|top in t|
|00004370| 61 62 20 73 74 6f 70 20 | 6c 69 73 74 2e 0a 20 20 |ab stop |list..  |
|00004380| 43 2d 63 20 54 61 62 20 | 53 65 74 20 74 61 62 20 |C-c Tab |Set tab |
|00004390| 73 74 6f 70 73 20 61 63 | 63 6f 72 64 69 6e 67 20 |stops ac|cording |
|000043a0| 74 6f 20 63 6f 6e 74 65 | 78 74 20 6f 66 20 74 68 |to conte|xt of th|
|000043b0| 69 73 20 6c 69 6e 65 2e | 0a 09 20 20 20 20 57 69 |is line.|..    Wi|
|000043c0| 74 68 20 41 52 47 20 72 | 65 73 65 74 73 20 74 61 |th ARG r|esets ta|
|000043d0| 62 20 73 74 6f 70 73 20 | 74 6f 20 64 65 66 61 75 |b stops |to defau|
|000043e0| 6c 74 20 28 67 6c 6f 62 | 61 6c 29 20 76 61 6c 75 |lt (glob|al) valu|
|000043f0| 65 2e 0a 09 20 20 20 20 | 53 65 65 20 61 6c 73 6f |e...    |See also|
|00004400| 20 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 6f | documen|tation o|
|00004410| 66 20 76 61 72 69 61 62 | 6c 65 09 70 69 63 74 75 |f variab|le.pictu|
|00004420| 72 65 2d 74 61 62 2d 63 | 68 61 72 73 0a 09 20 20 |re-tab-c|hars..  |
|00004430| 20 20 77 68 69 63 68 20 | 64 65 66 69 6e 65 73 20 |  which |defines |
|00004440| 22 69 6e 74 65 72 65 73 | 74 69 6e 67 20 63 68 61 |"interes|ting cha|
|00004450| 72 61 63 74 65 72 22 2e | 20 20 59 6f 75 20 63 61 |racter".|  You ca|
|00004460| 6e 20 6d 61 6e 75 61 6c | 6c 79 0a 09 20 20 20 20 |n manual|ly..    |
|00004470| 63 68 61 6e 67 65 20 74 | 68 65 20 74 61 62 20 73 |change t|he tab s|
|00004480| 74 6f 70 20 6c 69 73 74 | 20 77 69 74 68 20 63 6f |top list| with co|
|00004490| 6d 6d 61 6e 64 20 5c 5b | 65 64 69 74 2d 74 61 62 |mmand \[|edit-tab|
|000044a0| 2d 73 74 6f 70 73 5d 2e | 0a 59 6f 75 20 63 61 6e |-stops].|.You can|
|000044b0| 20 6d 61 6e 69 70 75 6c | 61 74 65 20 74 65 78 74 | manipul|ate text|
|000044c0| 20 77 69 74 68 20 74 68 | 65 73 65 20 63 6f 6d 6d | with th|ese comm|
|000044d0| 61 6e 64 73 3a 0a 20 20 | 43 2d 64 09 20 20 43 6c |ands:.  |C-d.  Cl|
|000044e0| 65 61 72 20 28 72 65 70 | 6c 61 63 65 29 20 41 52 |ear (rep|lace) AR|
|000044f0| 47 20 63 6f 6c 75 6d 6e | 73 20 61 66 74 65 72 20 |G column|s after |
|00004500| 70 6f 69 6e 74 20 77 69 | 74 68 6f 75 74 20 6d 6f |point wi|thout mo|
|00004510| 76 69 6e 67 2e 0a 20 20 | 43 2d 63 20 43 2d 64 20 |ving..  |C-c C-d |
|00004520| 44 65 6c 65 74 65 20 63 | 68 61 72 20 61 74 20 70 |Delete c|har at p|
|00004530| 6f 69 6e 74 20 2d 20 74 | 68 65 20 63 6f 6d 6d 61 |oint - t|he comma|
|00004540| 6e 64 20 6e 6f 72 6d 61 | 6c 6c 79 20 61 73 73 69 |nd norma|lly assi|
|00004550| 67 6e 65 64 20 74 6f 20 | 43 2d 64 2e 0a 20 20 5c |gned to |C-d..  \|
|00004560| 5b 70 69 63 74 75 72 65 | 2d 62 61 63 6b 77 61 72 |[picture|-backwar|
|00004570| 64 2d 63 6c 65 61 72 2d | 63 6f 6c 75 6d 6e 5d 20 |d-clear-|column] |
|00004580| 20 43 6c 65 61 72 20 28 | 72 65 70 6c 61 63 65 29 | Clear (|replace)|
|00004590| 20 41 52 47 20 63 6f 6c | 75 6d 6e 73 20 62 65 66 | ARG col|umns bef|
|000045a0| 6f 72 65 20 70 6f 69 6e | 74 2c 20 6d 6f 76 69 6e |ore poin|t, movin|
|000045b0| 67 20 62 61 63 6b 20 6f | 76 65 72 20 74 68 65 6d |g back o|ver them|
|000045c0| 2e 0a 20 20 5c 5b 70 69 | 63 74 75 72 65 2d 63 6c |..  \[pi|cture-cl|
|000045d0| 65 61 72 2d 6c 69 6e 65 | 5d 09 20 20 43 6c 65 61 |ear-line|].  Clea|
|000045e0| 72 20 41 52 47 20 6c 69 | 6e 65 73 2c 20 61 64 76 |r ARG li|nes, adv|
|000045f0| 61 6e 63 69 6e 67 20 6f | 76 65 72 20 74 68 65 6d |ancing o|ver them|
|00004600| 2e 09 20 54 68 65 20 63 | 6c 65 61 72 65 64 0a 09 |.. The c|leared..|
|00004610| 20 20 20 20 74 65 78 74 | 20 69 73 20 73 61 76 65 |    text| is save|
|00004620| 64 20 69 6e 20 74 68 65 | 20 6b 69 6c 6c 20 72 69 |d in the| kill ri|
|00004630| 6e 67 2e 0a 20 20 5c 5b | 70 69 63 74 75 72 65 2d |ng..  \[|picture-|
|00004640| 6f 70 65 6e 2d 6c 69 6e | 65 5d 09 20 20 4f 70 65 |open-lin|e].  Ope|
|00004650| 6e 20 62 6c 61 6e 6b 20 | 6c 69 6e 65 28 73 29 20 |n blank |line(s) |
|00004660| 62 65 6e 65 61 74 68 20 | 63 75 72 72 65 6e 74 20 |beneath |current |
|00004670| 6c 69 6e 65 2e 0a 59 6f | 75 20 63 61 6e 20 6d 61 |line..Yo|u can ma|
|00004680| 6e 69 70 75 6c 61 74 65 | 20 72 65 63 74 61 6e 67 |nipulate| rectang|
|00004690| 6c 65 73 20 77 69 74 68 | 20 74 68 65 73 65 20 63 |les with| these c|
|000046a0| 6f 6d 6d 61 6e 64 73 3a | 0a 20 20 43 2d 63 20 43 |ommands:|.  C-c C|
|000046b0| 2d 6b 20 43 6c 65 61 72 | 20 28 6f 72 20 6b 69 6c |-k Clear| (or kil|
|000046c0| 6c 29 20 61 20 72 65 63 | 74 61 6e 67 6c 65 20 61 |l) a rec|tangle a|
|000046d0| 6e 64 20 73 61 76 65 20 | 69 74 2e 0a 20 20 43 2d |nd save |it..  C-|
|000046e0| 63 20 43 2d 77 20 4c 69 | 6b 65 20 43 2d 63 20 43 |c C-w Li|ke C-c C|
|000046f0| 2d 6b 20 65 78 63 65 70 | 74 20 72 65 63 74 61 6e |-k excep|t rectan|
|00004700| 67 6c 65 20 69 73 20 73 | 61 76 65 64 20 69 6e 20 |gle is s|aved in |
|00004710| 6e 61 6d 65 64 20 72 65 | 67 69 73 74 65 72 2e 0a |named re|gister..|
|00004720| 20 20 43 2d 63 20 43 2d | 79 20 4f 76 65 72 6c 61 |  C-c C-|y Overla|
|00004730| 79 20 28 6f 72 20 69 6e | 73 65 72 74 29 20 63 75 |y (or in|sert) cu|
|00004740| 72 72 65 6e 74 6c 79 20 | 73 61 76 65 64 20 72 65 |rrently |saved re|
|00004750| 63 74 61 6e 67 6c 65 20 | 61 74 20 70 6f 69 6e 74 |ctangle |at point|
|00004760| 2e 0a 20 20 43 2d 63 20 | 43 2d 78 20 4c 69 6b 65 |..  C-c |C-x Like|
|00004770| 20 43 2d 63 20 43 2d 79 | 20 65 78 63 65 70 74 20 | C-c C-y| except |
|00004780| 72 65 63 74 61 6e 67 6c | 65 20 69 73 20 74 61 6b |rectangl|e is tak|
|00004790| 65 6e 20 66 72 6f 6d 20 | 6e 61 6d 65 64 20 72 65 |en from |named re|
|000047a0| 67 69 73 74 65 72 2e 0a | 20 20 5c 5b 63 6f 70 79 |gister..|  \[copy|
|000047b0| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 74 6f 2d 72 65 |-rectang|le-to-re|
|000047c0| 67 69 73 74 65 72 5d 20 | 20 20 43 6f 70 69 65 73 |gister] |  Copies|
|000047d0| 20 61 20 72 65 63 74 61 | 6e 67 6c 65 20 74 6f 20 | a recta|ngle to |
|000047e0| 61 20 72 65 67 69 73 74 | 65 72 2e 0a 20 20 5c 5b |a regist|er..  \[|
|000047f0| 61 64 76 65 72 74 69 73 | 65 64 2d 75 6e 64 6f 5d |advertis|ed-undo]|
|00004800| 20 20 20 43 61 6e 20 75 | 6e 64 6f 20 65 66 66 65 |   Can u|ndo effe|
|00004810| 63 74 73 20 6f 66 20 72 | 65 63 74 61 6e 67 6c 65 |cts of r|ectangle|
|00004820| 20 6f 76 65 72 6c 61 79 | 20 63 6f 6d 6d 61 6e 64 | overlay| command|
|00004830| 73 0a 09 20 20 20 20 63 | 6f 6d 6d 61 6e 64 73 20 |s..    c|ommands |
|00004840| 69 66 20 69 6e 76 6f 6b | 65 64 20 73 6f 6f 6e 20 |if invok|ed soon |
|00004850| 65 6e 6f 75 67 68 2e 0a | 59 6f 75 20 63 61 6e 20 |enough..|You can |
|00004860| 72 65 74 75 72 6e 20 74 | 6f 20 74 68 65 20 70 72 |return t|o the pr|
|00004870| 65 76 69 6f 75 73 20 6d | 6f 64 65 20 77 69 74 68 |evious m|ode with|
|00004880| 3a 0a 20 20 43 2d 63 20 | 43 2d 63 20 57 68 69 63 |:.  C-c |C-c Whic|
|00004890| 68 20 61 6c 73 6f 20 73 | 74 72 69 70 73 20 74 72 |h also s|trips tr|
|000048a0| 61 69 6c 69 6e 67 20 77 | 68 69 74 65 73 70 61 63 |ailing w|hitespac|
|000048b0| 65 20 66 72 6f 6d 20 65 | 76 65 72 79 20 6c 69 6e |e from e|very lin|
|000048c0| 65 2e 0a 09 20 20 20 20 | 53 74 72 69 70 70 69 6e |e...    |Strippin|
|000048d0| 67 20 69 73 20 73 75 70 | 70 72 65 73 73 65 64 20 |g is sup|pressed |
|000048e0| 62 79 20 73 75 70 70 6c | 79 69 6e 67 20 61 6e 20 |by suppl|ying an |
|000048f0| 61 72 67 75 6d 65 6e 74 | 2e 0a 0a 45 6e 74 72 79 |argument|...Entry|
|00004900| 20 74 6f 20 74 68 69 73 | 20 6d 6f 64 65 20 63 61 | to this| mode ca|
|00004910| 6c 6c 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |lls the |value of|
|00004920| 20 20 70 69 63 74 75 72 | 65 2d 6d 6f 64 65 2d 68 |  pictur|e-mode-h|
|00004930| 6f 6f 6b 20 20 69 66 20 | 6e 6f 6e 2d 6e 69 6c 2e |ook  if |non-nil.|
|00004940| 0a 0a 4e 6f 74 65 20 74 | 68 61 74 20 50 69 63 74 |..Note t|hat Pict|
|00004950| 75 72 65 20 6d 6f 64 65 | 20 63 6f 6d 6d 61 6e 64 |ure mode| command|
|00004960| 73 20 77 69 6c 6c 20 77 | 6f 72 6b 20 6f 75 74 73 |s will w|ork outs|
|00004970| 69 64 65 20 6f 66 20 50 | 69 63 74 75 72 65 20 6d |ide of P|icture m|
|00004980| 6f 64 65 2c 20 62 75 74 | 0a 74 68 65 79 20 61 72 |ode, but|.they ar|
|00004990| 65 20 6e 6f 74 20 64 65 | 66 61 75 6c 74 6c 79 20 |e not de|faultly |
|000049a0| 61 73 73 69 67 6e 65 64 | 20 74 6f 20 6b 65 79 73 |assigned| to keys|
|000049b0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |...(defa|lias 'pi|
|000049c0| 63 74 75 72 65 2d 6d 6f | 64 65 20 23 5b 6e 69 6c |cture-mo|de #[nil|
|000049d0| 20 22 08 c1 61 ab 84 c2 | c3 21 87 c4 c5 21 88 c6 | "..a...|.!...!..|
|000049e0| 20 15 c7 0e 08 21 88 c4 | c9 21 88 0e 5c 6e 16 09 | ....!..|.!..\n..|
|000049f0| c4 cb 21 88 08 16 0b c1 | 10 c4 cc 21 88 cd 16 0c |..!.....|...!....|
|00004a00| c4 ce 21 88 cf ce 21 16 | 0e c4 d0 21 88 cf d0 21 |..!...!.|...!...!|
|00004a10| 16 10 c4 d1 21 88 c4 d2 | 21 88 c4 d3 21 88 0e 14 |....!...|!...!...|
|00004a20| 16 13 d5 16 14 c4 d6 21 | 88 d5 16 16 d7 d8 d9 5c |.......!|.......\|
|00004a30| 22 88 da db dc 5c 22 88 | dd de df 21 0e 09 5c 22 |"....\".|...!..\"|
|00004a40| 87 22 20 5b 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 70 |." [majo|r-mode p|
|00004a50| 69 63 74 75 72 65 2d 6d | 6f 64 65 20 65 72 72 6f |icture-m|ode erro|
|00004a60| 72 20 22 59 6f 75 20 61 | 72 65 20 61 6c 72 65 61 |r "You a|re alrea|
|00004a70| 64 79 20 65 64 69 74 69 | 6e 67 20 61 20 70 69 63 |dy editi|ng a pic|
|00004a80| 74 75 72 65 2e 22 20 6d | 61 6b 65 2d 6c 6f 63 61 |ture." m|ake-loca|
|00004a90| 6c 2d 76 61 72 69 61 62 | 6c 65 20 70 69 63 74 75 |l-variab|le pictu|
|00004aa0| 72 65 2d 6d 6f 64 65 2d | 6f 6c 64 2d 6c 6f 63 61 |re-mode-|old-loca|
|00004ab0| 6c 2d 6d 61 70 20 63 75 | 72 72 65 6e 74 2d 6c 6f |l-map cu|rrent-lo|
|00004ac0| 63 61 6c 2d 6d 61 70 20 | 75 73 65 2d 6c 6f 63 61 |cal-map |use-loca|
|00004ad0| 6c 2d 6d 61 70 20 70 69 | 63 74 75 72 65 2d 6d 6f |l-map pi|cture-mo|
|00004ae0| 64 65 2d 6d 61 70 20 70 | 69 63 74 75 72 65 2d 6d |de-map p|icture-m|
|00004af0| 6f 64 65 2d 6f 6c 64 2d | 6d 6f 64 65 2d 6e 61 6d |ode-old-|mode-nam|
|00004b00| 65 20 6d 6f 64 65 2d 6e | 61 6d 65 20 70 69 63 74 |e mode-n|ame pict|
|00004b10| 75 72 65 2d 6d 6f 64 65 | 2d 6f 6c 64 2d 6d 61 6a |ure-mode|-old-maj|
|00004b20| 6f 72 2d 6d 6f 64 65 20 | 70 69 63 74 75 72 65 2d |or-mode |picture-|
|00004b30| 6b 69 6c 6c 65 64 2d 72 | 65 63 74 61 6e 67 6c 65 |killed-r|ectangle|
|00004b40| 20 6e 69 6c 20 74 61 62 | 2d 73 74 6f 70 2d 6c 69 | nil tab|-stop-li|
|00004b50| 73 74 20 64 65 66 61 75 | 6c 74 2d 76 61 6c 75 65 |st defau|lt-value|
|00004b60| 20 70 69 63 74 75 72 65 | 2d 74 61 62 2d 63 68 61 | picture|-tab-cha|
|00004b70| 72 73 20 70 69 63 74 75 | 72 65 2d 76 65 72 74 69 |rs pictu|re-verti|
|00004b80| 63 61 6c 2d 73 74 65 70 | 20 70 69 63 74 75 72 65 |cal-step| picture|
|00004b90| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 2d 73 74 65 70 |-horizon|tal-step|
|00004ba0| 20 70 69 63 74 75 72 65 | 2d 6d 6f 64 65 2d 6f 6c | picture|-mode-ol|
|00004bb0| 64 2d 74 72 75 6e 63 61 | 74 65 2d 6c 69 6e 65 73 |d-trunca|te-lines|
|00004bc0| 20 74 72 75 6e 63 61 74 | 65 2d 6c 69 6e 65 73 20 | truncat|e-lines |
|00004bd0| 74 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 72 65 |t mouse-|track-re|
|00004be0| 63 74 61 6e 67 6c 65 2d | 70 20 70 69 63 74 75 72 |ctangle-|p pictur|
|00004bf0| 65 2d 73 65 74 2d 6d 6f | 74 69 6f 6e 20 30 20 31 |e-set-mo|tion 0 1|
|00004c00| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 65 64 69 74 2d | run-hoo|ks edit-|
|00004c10| 70 69 63 74 75 72 65 2d | 68 6f 6f 6b 20 70 69 63 |picture-|hook pic|
|00004c20| 74 75 72 65 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 6d |ture-mod|e-hook m|
|00004c30| 65 73 73 61 67 65 20 73 | 75 62 73 74 69 74 75 74 |essage s|ubstitut|
|00004c40| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00004c50| 54 79 70 65 20 5c 5c 5b | 70 69 63 74 75 72 65 2d |Type \\[|picture-|
|00004c60| 6d 6f 64 65 2d 65 78 69 | 74 5d 20 69 6e 20 74 68 |mode-exi|t] in th|
|00004c70| 69 73 20 62 75 66 66 65 | 72 20 74 6f 20 72 65 74 |is buffe|r to ret|
|00004c80| 75 72 6e 20 69 74 20 74 | 6f 20 25 73 20 6d 6f 64 |urn it t|o %s mod|
|00004c90| 65 2e 22 5d 20 33 20 28 | 23 24 20 2e 20 31 35 37 |e."] 3 (|#$ . 157|
|00004ca0| 39 39 29 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |99) nil]|).(defal|
|00004cb0| 69 61 73 20 27 65 64 69 | 74 2d 70 69 63 74 75 72 |ias 'edi|t-pictur|
|00004cc0| 65 20 27 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 29 |e 'pictu|re-mode)|
|00004cd0| 0a 23 40 31 37 32 20 55 | 6e 64 6f 20 70 69 63 74 |.#@172 U|ndo pict|
|00004ce0| 75 72 65 2d 6d 6f 64 65 | 20 61 6e 64 20 72 65 74 |ure-mode| and ret|
|00004cf0| 75 72 6e 20 74 6f 20 70 | 72 65 76 69 6f 75 73 20 |urn to p|revious |
|00004d00| 6d 61 6a 6f 72 20 6d 6f | 64 65 2e 0a 57 69 74 68 |major mo|de..With|
|00004d10| 20 6e 6f 20 61 72 67 75 | 6d 65 6e 74 20 73 74 72 | no argu|ment str|
|00004d20| 69 70 73 20 77 68 69 74 | 65 73 70 61 63 65 20 66 |ips whit|espace f|
|00004d30| 72 6f 6d 20 65 6e 64 20 | 6f 66 20 65 76 65 72 79 |rom end |of every|
|00004d40| 20 6c 69 6e 65 20 69 6e | 20 50 69 63 74 75 72 65 | line in| Picture|
|00004d50| 20 62 75 66 66 65 72 0a | 20 20 6f 74 68 65 72 77 | buffer.|  otherw|
|00004d60| 69 73 65 20 6a 75 73 74 | 20 72 65 74 75 72 6e 20 |ise just| return |
|00004d70| 74 6f 20 70 72 65 76 69 | 6f 75 73 20 6d 6f 64 65 |to previ|ous mode|
|00004d80| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |...(defa|lias 'pi|
|00004d90| 63 74 75 72 65 2d 6d 6f | 64 65 2d 65 78 69 74 20 |cture-mo|de-exit |
|00004da0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 73 |#[(&opti|onal nos|
|00004db0| 74 72 69 70 29 20 22 08 | c1 61 ac 84 c2 c3 21 87 |trip) ".|.a....!.|
|00004dc0| 0c ac 83 c5 20 88 0e 06 | 16 07 c8 0e 09 21 88 0e |.... ...|.....!..|
|00004dd0| 5c 6e 10 cb cc 21 88 0e | 0d 16 0e cb cf 21 88 d0 |\n...!..|.....!..|
|00004de0| 20 87 22 20 5b 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 | ." [maj|or-mode |
|00004df0| 70 69 63 74 75 72 65 2d | 6d 6f 64 65 20 65 72 72 |picture-|mode err|
|00004e00| 6f 72 20 22 59 6f 75 20 | 61 72 65 6e 27 74 20 65 |or "You |aren't e|
|00004e10| 64 69 74 69 6e 67 20 61 | 20 50 69 63 74 75 72 65 |diting a| Picture|
|00004e20| 2e 22 20 6e 6f 73 74 72 | 69 70 20 70 69 63 74 75 |." nostr|ip pictu|
|00004e30| 72 65 2d 63 6c 65 61 6e | 20 70 69 63 74 75 72 65 |re-clean| picture|
|00004e40| 2d 6d 6f 64 65 2d 6f 6c | 64 2d 6d 6f 64 65 2d 6e |-mode-ol|d-mode-n|
|00004e50| 61 6d 65 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 75 73 |ame mode|-name us|
|00004e60| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 70 69 63 74 |e-local-|map pict|
|00004e70| 75 72 65 2d 6d 6f 64 65 | 2d 6f 6c 64 2d 6c 6f 63 |ure-mode|-old-loc|
|00004e80| 61 6c 2d 6d 61 70 20 70 | 69 63 74 75 72 65 2d 6d |al-map p|icture-m|
|00004e90| 6f 64 65 2d 6f 6c 64 2d | 6d 61 6a 6f 72 2d 6d 6f |ode-old-|major-mo|
|00004ea0| 64 65 20 6b 69 6c 6c 2d | 6c 6f 63 61 6c 2d 76 61 |de kill-|local-va|
|00004eb0| 72 69 61 62 6c 65 20 74 | 61 62 2d 73 74 6f 70 2d |riable t|ab-stop-|
|00004ec0| 6c 69 73 74 20 70 69 63 | 74 75 72 65 2d 6d 6f 64 |list pic|ture-mod|
|00004ed0| 65 2d 6f 6c 64 2d 74 72 | 75 6e 63 61 74 65 2d 6c |e-old-tr|uncate-l|
|00004ee0| 69 6e 65 73 20 74 72 75 | 6e 63 61 74 65 2d 6c 69 |ines tru|ncate-li|
|00004ef0| 6e 65 73 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |nes mous|e-track-|
|00004f00| 72 65 63 74 61 6e 67 6c | 65 2d 70 20 72 65 64 72 |rectangl|e-p redr|
|00004f10| 61 77 2d 6d 6f 64 65 6c | 69 6e 65 5d 20 32 20 28 |aw-model|ine] 2 (|
|00004f20| 23 24 20 2e 20 31 39 36 | 37 31 29 20 22 50 22 5d |#$ . 196|71) "P"]|
|00004f30| 29 0a 23 40 34 30 20 45 | 6c 69 6d 69 6e 61 74 65 |).#@40 E|liminate|
|00004f40| 20 77 68 69 74 65 73 70 | 61 63 65 20 61 74 20 65 | whitesp|ace at e|
|00004f50| 6e 64 73 20 6f 66 20 6c | 69 6e 65 73 2e 1f 0a 28 |nds of l|ines...(|
|00004f60| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00004f70| 65 2d 63 6c 65 61 6e 20 | 23 5b 6e 69 6c 20 22 8a |e-clean |#[nil ".|
|00004f80| 65 62 88 c0 c1 c2 c3 23 | ad 87 c4 94 60 7c 88 aa |eb.....#|....`|..|
|00004f90| 72 29 87 22 20 5b 72 65 | 2d 73 65 61 72 63 68 2d |r)." [re|-search-|
|00004fa0| 66 6f 72 77 61 72 64 20 | 22 5b 20 09 5d 5b 20 09 |forward |"[ .][ .|
|00004fb0| 5d 2a 24 22 20 6e 69 6c | 20 74 20 30 5d 20 34 20 |]*$" nil| t 0] 4 |
|00004fc0| 28 23 24 20 2e 20 32 30 | 32 37 39 29 5d 29 0a 28 |(#$ . 20|279)]).(|
|00004fd0| 70 72 6f 76 69 64 65 20 | 27 70 69 63 74 75 72 65 |provide |'picture|
|00004fe0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+